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EEE HHH NNN NNN GGGGGGGGGGGG 
EEE HHH NNN NNN GGGGGGGGGGGG 
EEE XXX XXX CCC HHH HHH NNN NNN 
EEE XXX XXX CCC HHH HHH NNN NNN GGG 
EEE XXX XXX CCC HHH HHH NNN NN GGG - 
EEE XXX XXX Lcc HHH HHH NNNNNN NNN GGG 
EEE XXX = XXX CCC HHH HHH NNNNNN NNN GGG mM 
EEE XXX = XXX CCC HHH HHH NNN NNN GGG a] 
EEEEEEEEEEEE Xx ccc HHHHHHHHHHHHHHH NNN NNN NNN GGG a] 
EEEEESEEEEEE XXX ccc HHHHHHHHHHHHHHH_ NNN NNN NNN GGG mM 
EEEECEEEEEEE XXX ccc HHHHHHHHHHHHHHH NNN NNN NNN GGG 4 
EEE XXX XXX ccc HHH HHH NNN NNNNNN GGG  GGGGGGGGG a] 
EEE XXX = XXX ccc HH HHH NNN NNNNNN GGG G6GGGGGGGG a 
EEE XXX = XXX CCC HHH HHH NNN NNNNNN GGG 6GGGGGGGGG " 
EEE XXX XXX CCC HHH HHH NNN NNN GGG GGG 0 
EEE XXX XXX CCC HHH HHH NNN NNN 6GG GGG 0 
EEE XXX XXX CCC Hi HHH NNN NNN GGG GGG 0 
EEE NNN GGGGGGGGS P 
FEE NNN GGGGGGG4G P| 
EEE NNN GGGGGGGGG . 
P 
P) 
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HHH NNN NNN _ GGGGGGGGGGGG | 
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; 1 id MODULE enghtuct) ZTITLE ‘Facility-wide misc routines’ 

: : 008 IDENT = 'V04-000'" 

: ¢ siie4 We tennaeee adie (EXTERNAL=LONG_RELATIVE, NONEXTERNAL=WORD_RELATIVE) 

4 = 

we b9ne | gecIN | 

: 8 44 : leuateuceneeententeeanenteneneeceeereerertetererrernntnntnnarentnnennerentns 

; .* * | 

; 10 9010 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY . 

; 11 011 1 !* DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. * 

: \§ Bog : is ALL RIGHTS RESERVED. . 

: 14 0014 1 i THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 

; 15 0015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 

; 16 0016 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 

; 17 0017 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO AN¥ * 

; 18 0018 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

$ i dh : - TRANSFERRED. * 

: :* te 

3 21 0021 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

; $§ OO8¢ 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

3 $i o05z ; ™ CORPORATION. * 

° 3 

; 25 0025 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

3 $8 boss : = SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

° 3 & 

3 28 0028 1 !* + 

s $3 it 34 ' Vee AAA RARER AREER AAA ATER 

: 31 0031 1 !44 

; 3 6036 : } FACILITY: EXCHANGE = Foreign volume interchange facility 

3 34 0034 ABSTRACT: Miscellaneous utility routines 

: 36 0036 | ENVIRONMENT: VAX/VMS User mode 

: #38 0038 1 | AUTHOR: CW Hobbs CREATION DATE: 8-July-1982 

; 39 0039 1! 

3 40 0040 1 ! MODIFIED BY: 

: os 0041 1! 

3 $§ R006 1! v03-002 CWH3002 CW Hobbs 12-Apr-1984 

; 64 0045 1! Change the getdvi to use FULLDEVNAM. 

3 44 Bhd 1! 

:- 045 1! 

; 6446 0046 1 !-- 

3 47 S944 1 

s 68 048 1 ! Include files: 

s 69 0049 1! 

s $0 0050 1 MACRO $module_name string = ‘exch$util’ %; ! The require file needs to know our module name 

3 51 0051 1 REQUIRE ‘SRCSTEXCREQ' 

; 0052 1 : 
| 
J 


mn 
=< 
oO 
2 
se 
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oa 
= 
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le table of contents 14-Sep 


ZSBITL ‘Module table of contents’ 
Module table of contents: 


FORWARD ROUTINE 
exch$util_block check : 


< 

a 
& 
an 
c- 


WII 
NOUS 


exch$util“doslictx_ at eae NOVALUE 
exch$util_fao buffer, 
exch$util-filB_alloca 

exch$util=filb_ release. : NOVALUE, 
erchsut tt ng-n 

erat tet ee 


te, 
_from_ascii, 
exch$util~ ~fadix3? —e ascit, 

exch$ut it. -rmsb_ allocate, 

exch$util=rmsb_ relesee : Bs aaeate 

pede ed “rtiietx alloc 

exch$util=rtlictx_ gti rete : NOVALUE, 
exch$util_vm_allocate, 
exch$util-vm_allocate_zeroed, 

exchsut it. _vm protease : NOVALUE, 
exch$util-vol_get dvi. 

exch$util-volB_alloca 

exch$util"volb_ tt pare t NOVALUE 

exch$util_ “up_case : NOVALUE "jsb_ rir2r3 
EXCHANGE facility routines 

V EXTERNAL ROUTINE 


Equated symbols: 
‘LITERAL 


} Bound declarations: 
iBIND 


Bete Ge Ge Ge Ge Ge Ge Se Se Se Se Se Se Oe ese Be Be Os Se Sse Oe Se Se Se Oe Se Se Oe Se Se Sete Ge Ge Ge ee Ge SS Se Se Se ae 
folelelelelelelelelelewlelelealeleleloleloleolololololelelolelelolol ol ololel alo oleae ol ala) 
Ce ee eee ee ee ee ee ee eS 
OO 0000 09 09 09 09 09 09 09 09 SI NIN SIN NN NN NNSA AAA AAAAAA IMUM 
M—OVOODNAVNES WN O OODNOU SWRI (OO OONOAUE WN" OOONOUS WN O0 
a at ad to 8 2 St 


ee ee eo EE Em 
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Page 
EXCHNG. SRCJEXCUTIL.B32;1 9 


Check the block type and size fields 
Allocate a DOS-11 file context block 
Release it 

Pass arguments through FAO service 
Allocate a file bloc 

Release a file block 

Signal an RMS error 

Locate a mounted ee block in the volb in-use queue 
Allocate a name yreen 

Release a name bloc 

Convert an ascii string to radix50 
Convert a radix50 string to ascii 
Allocate a file information block 
Release a file information block 
Allocate an RT-11 file context block 


it 
l LIBSGET_VM and signal errors 
l LIBSGET_VM, clear memory and signal errors 
L LIBSFREE_VM and signal errors 
lL in the device characteristics fields in a volb 
ocate a volume block 
! Release a volume block 
Convert string to uppercase 


l 
L 
L 
L 
L 
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EXCHSUTIL Facility-wide misc routines 1e-Se 1984 01:25:39 AX-11 Bliss-32 V4.0-742 P 
v06 exch$util block. check 1o-38p- 1382 93:53:09 HEXtune Saedexcutii esos a9e 33 
9133 GLOBAL ROUTINE exch$util_block check (addr : $ref_bblock coge, FSBTTL, ‘exch$util_block_check' 
19 size_type: VECTOR C2, WORDJ) : jsb_rOrir2 NOVALUE = 


BEGIN , | 
e+ 


FUNCTIONAL DESCRIPTION: 
This routine checks a data structure for correct size and type fields 


INPUTS: 
addr - address of the block 
code - error code to display if the block doesn't pass 


size_type - size and type values, size is in high word, type in low word 
IMPLICIT INPUTS: 

none 
OUTPUTS: 

none 
IMPLICIT OUTPUTS: 

none 
ROUTINE VALUE: 

none | 
SIDE EFFECTS: 


If the block does not pass, the image is terminated 


POPOPOPIPYIPIPIPYNINININYNYNINPYPIPYDIPIPIPOPINYINPIPYNPIPYNINPIN 2 SS SS 


BEEF PANINI WII OPININPINININININ 2 OO SS SM QOOOOOCOOCOOCOOWOOWOWONO 


size_type [0] : WORD; 

IF .addr EQL 0 ! Add 1000 to the error code if the block address is zero, this lets 

THEN ! us distinguish missing from bad blocks without defining additional error codes 
$exch_signal_stop (exch$_blockcheckO, 1, (1000+.code)); 


IF . addr Cexcg$w_size] NEQ .size | 


size = size_type [1] : WORD, | 
| 


one addr Cexcg$b_type] NEQ .type 
$exch_signal_stop (exch$_blockcheck, 6, .code, .addr, 
~addr Cexcg$w_sizeJ, .size, .addr Cexcg$b_type], .type); 


oO SSCS 


ee ee ee ek ee ee ed de ed od od dt 


“35 PERE & EPAMMMNWIINIUINIRINININININININID 2 2 OO St OO OO 
_ 


; 
: 
: 
; 
; 
; 


Nn a oe eee ew wie fo lololelolololololololololololololololol~) 
MEWUN OC ODNOUE WN $0 ODNAMU EWN OOD NOAUES WN O ODNAYV EWN OOONOUE 
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RETURN; 
END; 


TITLE tt ie 14h, Facility-wide misc routines 
-IDENT \Vv04-000\ 
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EXCHSUTIL Facility-wide pies routines 1b-$6 1984 9 AX-11 Bliss-32 V4.0-742 P 4) 
v04-000 exch$util block check 14- gep-19 4 0}: $3; 39 EXCHNG.SRCJEXCUTIL.B32;1 eh (3). 


eEXTKN EXCHS$_BLOCKCHECKO 
-EXTRN LIBSSTOP, EXCH$_BLOCKCHECK 


»PSECT EXCHSUTIL_CODE ,NOWRT,2 


| 
52 DD 00000 EXCHSUTIL_BLOCK_CHECK:: | 
POSHL “R2 ; 0193 | 
50 D5 0002 TSTL ADDR : 0233. 
15 12 00004 BNEG =-'1$ : | 
O3E8 C1 9F 00006 PUSHAB 1000¢covE) + 0235 
1 DD O00A PUSHL : | 
000000006 8F DD 000 PUSHL aExCHS BLOCK CHECKO : 
000000006 00 93 FB 0001 CALLS , LIBSS : 
2 11 0001 BRB 3° : 
02. AE 08 AO 61 00018 1S: CMPW  BCADDR), SIZE + 0237 
09 12 00020 BNEQ 2$ : 
52 OA AO 9A 00022 MOVZBL 10(ADDR), R2 + 0239 
6E 52 B1 00026 CMPW soR2, ~TYPE : 
22 13 00029 BEQL «= 38 : 
7E 6E 3¢ 909 B 2S: MOVZWL TYPE, -(SP) > 0242 
7E 0A AO 9A 000 ; MOVZBL 10(ADDR), -(SP) : 
7E OA AE 3¢ 000 MOVZWL SIZE, - : 
7E 08 AO 3C 00036 MOVZWL 8 (ADDR), -(SP) : 
50 DD O0003A PUSHL ADDR : 
51 DD 0003C PUSHL CODE : 
06 DD 0003E PUSHL ; 
000000006 8F DD 00040 PUSHL #EXCH$_BLOCKCHECK ; 
000000006 00 08 FB 00046 CALLS #8, LIBS$STOP : 
5E 04 CO 0004D 3s: ADDL2 #4, SP + 0245 
05 00050 RSB ; 
; Routine Size: 81 bytes, Routine Base: EXCHSUTIL_CODE + 0000 


, 
| 
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voe- exch$util_doslictx.allocate (volb, filb) eae tees 93:88:88 anc Ok ies ese 4-08 Tse, age 43] 
‘$ 1 5 ROUTINE exch$util_doslictx_allocate (volb, filb) = ZSBTTL ‘exch$util_doslictx_allocate (volb, f| 
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lee 

FUNCTIONAL DESCRIPTION: 
This routine allocates one DOS-11 file context block. If one is available, it is moved from the ava 
— to the in-use queue. If none are available, then a fresh block is created and placed on the i 
ueue. 


INPUTS: 


volb = pointer to the associated vol 
filb = pointer to the associated fil 


b 
b 
IMPLICIT INPUTS: 
exch$a_gbl fexegsa-dos! te txcavl} - List of allocated file blocks 


exch$a_gbl Cexcg$q_dostictx_avl] = queue of available file blocks 
exch$a_gbl 


| 
excg$q_doslictx_use] - queue of file blocks in use 
OUTPUTS: | 
none | 
IMPLICIT OUTPUTS: 
none 
ROUTINE VALUE: 
address cf the allocated file block 
SIDE EFFECTS: 
| 
| 
| 
| 
| 
| 


ALL errors are fatai 


LOCA 


wn-— 


L 

offset, ' Local temporary 
+i : Sref_bblock, ' A local pointer to the doslictx 
status 


ce cee ee ee ee ce a cee a cae a ed a ee ce ee ce wee ce ee ce ee ee ce ee ee ce cee ee ad ee ee ee ee eed ed 


OO 0 00 00 00 00 G0 09 G0 00 00 00 ~~ 
SELL SSLSSSSESLSSSSS wintteb pies 
PIPIPIPIPIPIPIPO PIPIPUPINMININININPIPINPIPO PPO PPO Po PoPoTnoTnony 
35D .09 09.09 09 09 G9 09 09 09 G9 Si SII SII SE SS SOP OR ON SO OP Oe UV UUM ES Be 


ooowvcoo 
VLSSSVSARAN SSR VSARAN —SGSWNOAL INO OO AA PUR OO Oe Or en o-oo 


: 
: 


SOOSOSOCOOSOSOOSOOCOCOOOO OOOO OCOSSO SOOO OOOOCOOCOOCOOCOOOOOOOOOOOO 


+ First, try to find one in the available queue 
ooo ptr = S$queve_remove_head (exch$a_gbl Cexcg$q_doslictx_aviJ); 
$06 3 If we didn't find one, then it will have to be created 

Be 2 IF .ptr EQL 0 

oo 2 BEGIN 

oe ; Allocate a fresh dosiictx from virtual memory. The entire block has been cleared to nulls 
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EXCHSUTIL Facility-wide misc routines hese -1984 01:25:39 AX-11 Bliss-32 V4.0-742 Pa 6) 
v04- exch$util doslictx_al locate (volb, filb) 12-808-1 3b 93:33:38 YEXCHNG SRE EXCUTIL.832;1 aa (4) | 
; 19 ? ptr = exch$Sutil_vm_allocate_zeroed (exchblk$s_doslictx); | ; 
° | : 
: 1 5 ; Place the dosiictx at the head of the List of allocated blocks | ; 
5 214 9 ptr fdosttc x$a_alloc] = sexch$a_gbl Cexcg$a_dos11ctx_alloc]; : 
: 1? 38 exch$a_gbl Cexcg$a_doslictx_alloc] = .ptr; : 
; iH 10 ! Set the block identification fields | ; 
: 219 19 Sblock_init (.ptr, doslictx); | : 
; 0 031 3 
; 1 14 END; | ; 
3 § B39 Check our block type, fatal error if any problems | ; 
; 33 Bas Sblock_check (2, .ptr, doslictx, 578); | : 
; 3 0320 Set the last part of the block to nulls | : 
: 56> 0338 CHSFILL (0, doslictx$k_end_zero = doslictx$k_start_zero, .ptr + doslictx$k_start_zero); : 
3 H 83 3 H Insert the block at the head of the in-use queue | : 
; 38 os $ Squeue_insert_head (ptr Cdoslictx$q_header], exch$a_gbl Cexcg$q_doslictx_use]); | : 
; $3¢ Bese ' Set the two associated fields 3 
: 236 44 ! 3 
3. dor 0330 ptr Cdoslictx$a_assoc_volb] = .volb; | F 
3 239 bee, ptr Cdoslictx$a_assoc_filb] = .filb; : 
: 240 b338 ' Return the address of the file block to the caller : 
: 241 0334 ! 3 
; seg 0335 RETURN .ptr; 5 
: 24 0336 : 
3 6244 0337 1 END; : 
LEXTRN EXCHSA_GBL | 3 
0OFC 00000 ENTRY EXCHSUTIL_DOSTICTX ALLOCATE, Save R2,R3,R4,-; 0246 : 
57 000000006 EF 9€ 9002 ROVAB EXCHSA GBL, R7 : : 
51 67 00000064 F ci 99 ADDL3. #100, EXCH$A_GBL, R1 : 0293 | : 
0 0 81 OF 00011 REMQUE a@0(R1), _T_ : | ; 
04 1C Bote BYC 1$ : : 
$ p4 0001 CLRL PTR ; | ; 
56 95 bg 6018 1$: BOVE 2s PTR : : 
1 08 If 2$: BNEQ 337 : 9297 : 
7E BA F OA MOVZBL #138, -(SP) ; 0303 3 
0000v CF 1 F 4 CALLS #1, EXCHSUTIL_VM_ALLOCATE_ZEROED ; : 
9 0 00029 MOVL RO, PTR : : 
67 D C MOVL EXCHSA_GB RO > 0307 : 
ee ae ae ome] 
08 Ab 8A ar 3B MOV7BW #138, cn) : 312 : 


RS SSeS on ‘ _ rc 
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EXCHSUTIL Facility-wide misc routines 1$ Sep-1 AX-11 Bliss-32 0-74 Pp 
ribet exch$util_doslictx.al locate (volb, filb) 1 £2368 13Re 93: $3: 39 EXCHNG. SRC EXC uti (955301 ses «as 
OA 53 4 GE 30 MNEGB (PTR) 
OOBA00F F pO 00041 3$: MOV 135 » R2 31 
i comanrs HE pe Bh Bie en 
00000000G_ EF is JSB EXCASUTIL 8 OCK_CHECK 
O06E 8&F 00 6E rc b0 C is MOVCS #0, (SP),°#0, aTiOe 28(PTR) 
50 67 0000005C BF 4 f oe EXCHSA_GBL, RO 
14 te 04 ae i Bek VL (er. astetey 0330 
10 A6 08 AC DO 000 O6F MOVL rTLB, 16(PTR) 0331 
50 56 Be Bn8 4 MOVL PTR, RO 0335 
4 00077 RET 0337 
; Routine Size: 120 bytes, Routine Base: EXCHSUTIL_CODE + 0051 


— 
z 
nw 
o 
&. 
m 

PT TETETETErererarerareyre 

o 2° 
ww 
Nm MM 
ao nm 


First, move the pointer to a local variable 
ptr = .addr; 
: Check our block type, fatal error if any problems 
Sblock_check (2, .ptr, doslictx, 579); 
: If there is a buffer allocated, free it 
If -ptr Cdosiictx$a_buffer] NEQ 0 
exch$util_vm_release (ctx$k_buffer_length, .ptr Cdoslictx$a_buffer]); 


Le 


SSeS 


: Clear the pointers in the part of the block before the automatic zero 
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EXCHSUTIL Facility-wide misc routines 18-56 1984 01:25:39 AX-11 Bliss-32 V4.0-74 P E 
v04- exchSutil_doslictx release (addr) 14-Sep-19 4 9:33:39 LEXCHNG. SRE EXcUT ii sos) she (sb V 
; “g 33 1 a3 ROUTINE exchS$Sutil_doslictx_release (addr) : NOVALUE = ZSBTTL ‘exch$util_doslictx_release (addr)' | ‘ 
$8 ogi baat 
i $90 4¢ gj FUNCTIONAL DESCRIPTION: | 3 
; § te This routine deallocates one dosiictx. The block is moved from the in-use queue to the available qu’ : 
; 4 46 | INPUTS: 
; $ a3 ; addr - address of the block to release : 
; 54 30 { IMPLICIT INPUTS: 
: 260 iH i exch$a_gbl Cexcg$q_doslictx_avl] - queue of available file blocks ; 
: 1 7 exch$a_gbl Lexcg$q_dosiictx_use] - queue of file blocks in use ‘ 
i 963 0535 2 | OUTPUTS: ; 
; #4 8 33 none 3 
i 367 0359 2 | IMPLICIT OUTPUTS: | 
; +4 8 o none 
; 3t 0 e§ i ROUTINE VALUE: | 
; 3 9 65 none ; 
; i 0 ef i SIDE EFFECTS: ; 
: 277 0369 2 } ALL errors are fatal ; 
on : 
; 280 037¢ @ LOCAL 3 
; 281 037 ptr : $ref_bblock, ! A local pointer to the doslictx 3 
; 0374 status 3 
; 0375 : 3 
: 0 6 : 
; 037 : 
; 0378 
: 0380 | ; 
; tre | : 
BB ee | 
; 4 : 
; Hi =at 
3 | ; 


WWW AIAI AAAI AAAI ANIA AIA ANNAN AAI AIA WWW 


VLSSSLSSEALNLSESELEARS 


oovono 
Fwno 


ptr Cdoslictx$a_assoc_filb] = 0; 


out 


———oeoeoeOeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee aaa Sam 


EXCHSUTIL 
voe~-000 


APUNIOSS IRAP 


; Routine Size: 


H 
Foch) tyiwiee misc routines 19 
exch$util_dosilictx_release (addr) 1 


95 ptr (doslictx$a_assoc_yolb] = 0; 
9 ptr (dosiictx$a_bu fer) = 0; 


aats ri 91:53:38 ee Bliss-32 V4.0-742 


2 


XCHNG.SRCJEXCUTIL.B32;1 


2 } Remove the dosiilctx from where ever it is in the in-use queue 
Z : Squeue_remove (ptr [doslictx$q_header]); 
z § Place the doslictx at the end of the available queue and the head of the in-use queue 
rte Squeve_insert_tail (ptr Cdoslictx$q_header], exch$a_gbl Cexcg$q_doslictx_avlJ); 
40 RETURN; 
40 END; 


000C 00000 
53 04 AC 00 00002 
52 OO8A00F 8F Re 0006 
51 024 8F 3¢€ 00000 
50 53 00 id 
00000000G EF 1 49 
18 A3 05 00018 
3 13 QOO1E 
18 OA po 000 ° 
7E 1800 8F 3C 000 
0000v CF 02 FB 00028 
10 A3S 7C 0002D 
18 AS 04 00030 
50 63 OF 00033 
50 000000006 EF 00000064 8F Ci 00036 
04 860 63 OE 00042 
04 00046 


71 bytes, Routine Base: EXCHSUTIL_CODE + 00C9 


1$: 


EXCHSUTIL DOSTICTX_RELEASE, Save R2,R3 
#9044220, R2 

#579, RI 

PTR, RO 

EXCHSUTIL BLOCK. CHECK 

26 (PTR) 
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“wide misc routines 1b-5¢ -Sep-19 9 AX-11 Bliss-32 V4.0-74 
opr188e 93:53:09 HeXchnc SaeSexcutii aso. 


ZSBTTL ‘exch$util_ 


L_fao_buffer -Sep- 
Soon ROUTINE exchS$Sutil_fao_buffer (ctrstr : REF VECTOR(C2], args : VECTOR ([4]) = 


++ 


FUNCTIONAL DESCRIPTION: 


INPUTS: 


ctrstr Address of FAO control string descriptor 
args Any number of additional arguments 


IMPLICIT INPUTS: 
none 
OUTPUTS: 
none 
IMPLICIT OUTPUTS: 
none 
ROUTINE VALUE: 
Address of formatted descriptor 
SIDE EFFECTS: 
none 


ND 
desc = exch$a_gbl Cexcg$t_fao_buffer] : VECTOR (3) 


desc £0} = excg$s fao_ buf fer-8; ! Set up result descriptor 


desc = desc (2); 

$faol (ctrstr=.ctrstr, outlen=desc, outbuf=desc, prmlst=args); 
RETURN desc; 

END; 


.EXTRN SYSS$FAOL 
000 ENTRY EXCHSUTIL ag? BUFFER. Save R2 
2 ADDL3 Wce8, R2 

MOVZBL 

B (Re 3 oe 

a PUSHL age 


52 000000006 EF O00000E4 HH 
6 FA F 
04 =A 68 be 
0 aS 
5 


This routine passes an ascii string through the FAO system service with any number of specified pore! 


1 
(6 
fa 


| 


| 
| 


EX 


———____—__—_—_—_ 
Vor-000, exch Sutictac_putfer eben 4:35:53 Webbe ncHe hats roe ly 


52 0D PUSHL R é 

AC 0D PUSHE CTRSTR : 

F CALL #4, SYSSFAOL ; 
MOVE R2, RO 3 045 

RET : 


Routine Base: dir a + 0110 


000000006 98 


; Routine Size: 44 bytes, 
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v04 exchSutil_filb-allocate 132388-1 382 93:33:09 LEXCHNG. SRE EXCUTIL.832;1 . (7) 
: r ¢ 1 SL OGAL ROUTINE exch$util_filb_allocate = ZSBTTL ‘exch$Sutil_filb_allocate’ 
; 4 tee 
; 4 5 : 
: v1 8 FUNCTIONAL DESCRIPTION: 
: 460 i This routine allocates one SFILB. If SFILBs are available, one is moved from the available queue to 
: ree in-use queue. If none are available, then a fresh SFILB is created and placed on the in-use queue. 
; 46 i INPUTS: 
3 464 ! 
3 465 ! none 
; 46 : 
; kere IMPLICIT INPUTS: 
: 0469 i exch$a_gbl Cexcg$a_filb_all] - List of allocated file blocks 
: 8 0 : exch$a_gbl Lexcg$q_filb_avl] - queue of available file blocks 
: be 53 exch$a_gbl Lexcg$q_filb_use] - queue of file blocks in use 
: 047 i QUTPUTS: 
3 0474 : 
3 0475 ! none 
s 047 ' 
3 047 ! IMPLICIT OUTPUTS: 
3 0478 } 
3 0479 ! none 
; 0480 ! 
; bees ROUTINE VALUE: 
: ek F4 address of the allocated file block 
F 0485 2 | SIDE EFFECTS: 
3 048 ‘ 
3 048 ! ALl errors are fatal 
; 0488 leo 
3 0489 
3 0490 LOCAL 
: 0491 ptr : $ref_bblock, ' A local pointer to the filb 
3 049 status 
3 049 : 
; 4 0494 
3 0495 
3 ry] Bae : First, try to find one in the available queue 
: 408 bc96 ptr = Squeue_resove_head (exch$a_gbl Cexcg$q_filb_avlJ); 
; 410 0388 ! If we didn't find one, then it will have to be created 
; 41 5 if .ptr EQL 0 
tig 208 5 thew? 
3 6416 504 BEGIN 
: 4615 282 
3 oi8 206 Allocate a fresh filb from virtual memory. 
: rh | 0808 ptr = exch$util_vm_allocate (exchblk$s_filb); 
: 420 0510 ' Place the filb at the head of the List of allocated blocks 


| 
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v0e~ exch$util_filb allocate We—gee~ 1885 P:85:38 Patch Oh ings se ve Oo ree — ta 
: 421 311 ' : 
3; 4 1 tr Cfilb$a_alloc] = ,exch$a_gbl Cexcg$a_filb_alloc]; 3 
: § § 318 exch$a_gbl Cexcg$a_filb-allocd = .strs “e | 
; : 5 318 } Init the dynamic strings ; 
; : ? 517 S$dyn_str_desc_init (ptr Cfilb$Sq_name_string]); : 
; 429 0318 ! Set the block identification fields | ; 
; 431 3 1 Sblock_init (.ptr, filb); 3 
; 4 : 3 § END; | : 
; oa? 03 5 : Check our block type, fatal error if any problems 2 
; a3? B2 ; Sblock_check (2, .ptr, filb, 481); | ; 
; cin be 4 Place the filb at the head of the in-use queue : 
3 441 05 1 Squeue_insert_head (ptr [filb$q_headerJ, exch$a_gbl Cexcg$q_filb_used); : 
3 ces 0338 Set the last part of the block to nulls ; 
3 a3 He CHSFILL (0, filbSk_end_zero - filb$k_start_zero, .ptr + filb$k_start_zero); 3 
; at 0337 Return the address of the file block to the caller ; 
: 449 0539 2 RETURN .ptr; : 
: 450 0540 : 
3s 451 0541 1 END; : 
.EXTRN EXCHS$GQ_DYN_STR_TEMPLATE ; 
00FC 00000 -ENTRY EXCHSUTIL_FILB_ALLOCATE, Save R2,R3,R4,R5,~ ; 0454 ; 
57 000000006 cf 9E 00002 MOV EXCHSA GBL : : 
51 67 00000078 &8F C1 00009 ADDL EXcHoA, tau. R1 : 0498 : 
50 00 81 OF 00011 REMQUE spehy. et ; : 
04 1¢ 0015 BVC 1$ ; : 
D4 0001 CLRL PTR : : 
e8 11 9019 BRB 2$ ; : 
56 08 1B 1$: MOVL T_, PTR 3 3 
E 12 OOO1E 2$: BNEQ 3$ : 0502 : 
7E 0358 8F 3¢ MOVZWL #859, -(SP) : 0508 : 
0000v F 1 F CALLS #1, EXCHSUTIL_VM_ALLOCATE ; ; 
9 D A MOVL RO, PTR : : 
67 D 9 VL XCHSA GBL, RO > 0512 
0c i 6c AO D MOVL 0 (ROY 12(PTR) ; 
6C A 56 MOVL PTR, 108(RO) > 0513 
A6 9E 9 MOVAB 16(PTR), R : 0517 
é9 ® 000099006 F 7D D MOVO MPL, (RO) ; 
08 A F B0 44 MOVW #859. 8(PTR) : 0521 
A he 6 F 4A MNEGB #6, 10(PTR) : 
52 O35B00FA B&F D 4E 3$ MOVL #56295674, R2 : 0527 


‘> 
now 
aan 


hard) AS Pd misc routines 


1984 01:25:39 AX-11 Bliss-32 V4.0-742 Page 14. 
exch$util_filb_allocate . Be 3; t . (7) | 


p-19 9:09 EXCHNG.SRCJEXCUTIL.832;1 


oe 


MOVZWL #481, R1 
MOVL PTR, R 
EXCHSUTIL_ BLOCK CHECK 


@DWworuw 


#ii2, EXCASA_GBC, RO : 0531. 
(PTR), (RO) : | 
#0, (SP), #0, #66, 24(PTR) > 0535, 
PTR, RO ; 0539, 
A 3; 0541 


SoOoCooooocoo 

+ Sooocooocoo 

Sooooooooo 

So NNNOOOMUM 
~NUWm 


; Routine Size: 123 bytes, Routine Base: EXCHSUTIL_CODE 13¢ | 
| 


] 

| 
EXCHSUTIL Facility-wide misc routines 16- Sep-1984 5:39 AX-11 Bliss-32 V4.0=-742 Page 15. 
v04- exch$util_filb release (addr) 14- sep-1984 93: 33 09 EXCHNG. SRCJEXCUTIL.B32; 1 . (8) | 

| 
; 453 48 1 GLOBAL ROUTINE exch$util_filb_release (addr) : NOVALUE = ZSBTTL ‘exch$util_filb_release (addr)' | ; 
3 tee 54 BEGIN : 
; 455 544 'o¢ ; 
3 $28 545 i : 
; ti 246 FUNCTIONAL DESCRIPTION: : 
; re B26 This routine deallocates one SFILB. The $FILB is moved from the in-use queue to the available queue ‘ 
: 461 0856 5 i inputs: : 
: 46 0551 i : 
$ ret b226 addr - address of the block to release ; 
; $3? 0884 IMPLICIT INPUTS: ‘ 
; 467 0556 i exch$a_gbl fexcasa.f avl] - queue of available file blocks ; 
: 468 0557 i exch$a_gbl Cexcg$q_ eel - queue of file blocks in use ; 
: 469 0558 i : 
; 470 0559 i OUTPUTS: : 
3; 471 0560 i : 
:- oF 0561 i none : 
3; 47 B206 i ; 
3; 474 056 i IMPLICIT OUTPUTS: | : 
3; 476 0565 i none : 
: 677 0566 i : 
; 478 0567 2 | ROUTINE VALUE: : 
3; 479 0568 i : 
; 480 0569 i none | ° 
: 481 0570 i ° 
; 48 0571 i SIDE EFFECTS: : 
; 48 b2§ i ; 
: 484 057 i ALL errors are fatal ; 
>; 485 0574 ie $ 
: 486 0575 3 
; 487 0576 LOCAL : : : 
: 488 0577 ptr : Sref_bblock, ! A local pointer to the filb 3 
; 489 0578 status 3 
; 490 tt44 : 3 
; 491 580 é 
; 49 0581 : : 
: 49 eat ! First, move the pointer to a local variable $ 
; 496 058 ! 
; 495 0584 ptr = .addr; 
3 rh 8383 
3 rhe Bene : Check our block type, fatal error if any problems 
; 499 Q988 ¢ Sblock check (2, .ptr, filb, 482); 
: 201 0990 ! Remove the filb from where ever it is in the in-use queue | 
3 508 8236 Squeue_remove (ptr ([filb$q_header)); | 
s 505 0394 : Place the filb at the end of the available queue. 
: 509 0596 Squeuve_insert_tail (ptr Cfilb$q_header], exch$a_gbl Cexcg$q_filb_aviJ); 
3 269 0598 RETURN; 


13 
EXCHSUTIL Facility-wide misc routines 18. -Sep- 9 AX-11 BLi 
v04- exchSutil filb release (addr) 14- =Sep- 1984 93: $3; a9 


; 510 0599 1 END; 


$$ -32 v4.0-742 Page 1 
EXCHNG. SRCIEXCUTIL 83251 me: 


000¢ 00000 -ENTRY EXCHSUTIL_FILB_RELEASE, Save R2,R3 3 0542 
3 046 Ac OD 02 MOVL ADDR PTR : 0584 
2 O35B00FA e p 06 MOVL # 6295674, R2 : 0588 
1 1E2 F c MOVZ2WL #482, R1 : 
3 D 01 MOVL PTR, RO : 
000000006 EF 16 0001 JSB EXCHSUTIL_BLOCK_CHECK : 
63 OF 00018 REnayE (PTR), T- : 0592 
50 000000006 EF 00000078 8F (C1 OOD1E #120 EXCASA GBL, RO : 0596 
04 60 63 OF O0¢h INSQUE (PTRS, a4(ROY : 
04 0002 RET : 0599 
3; Routine Size: 47 bytes, Routine Base: EXCHSUTIL_CODE + 0187 


ee ee ee ee ee rc oe aot 


gs ance cg niin a Ii ith I i Sita a ih PEN mig I a a it i nt De i a eg ali Tia mB a a a ca ah ln Dalia iri : be) 4 
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v04-000 exch$util_file-error 10=380-1 984 93:38:09 LEXCHNG SRC EXCUTIL.B32;1 : (9) | 
; \¢ 0600 1 GLOBAL ROUTINE exch$util_file_error (msg, rms_status, fabb : $ref_bblock, stv) = ZSBTTL ‘exch$util_fi. 
3 «(3 0601 BEGIN 
> 514 Bes ++ 
s 319 60 : 
; 218 Bode : FUNCTIONAL DESCRIPTION: | 
: 518 0606 : This routine signals an RMS error. The appropriate file name for the signal is found b 
; 519 0607 : examining the esntents of the nam block. it : : 
; 520 0608 ' 
; 2s} 0609 ! INPUTS: 
3 2s 0611 ' msg Error message value, assumed to have one !AS FAO argument 
> 524 bers : rms_status Error message from RMS call 
; $25 061 \ fab6 Pointer to FAB, used to locate nam block 
: 326 O614 ¢ | stv The RMS STV error from the FAB or RAB | 
: 528 O616 g | IMPLICIT INPUTS: 
; 267 0617 : 
; 5350 0618 2! RMS nam block attached to the FAB (fabb) 
3 Op 0619 2! 
; 336 0620 2 ! OUTPUTS: 
we 0621 2! 
: 534 0622 2 | none | 
; dae 0623 2! 
> 536 0624 2 ! IMPLICIT OUTPUTS: 
3 Sor pos? 2! 
; 538 0626 § : none 
; SoD 0627 ! 
; 540 0628 2 ! ROUTINE VALUE: 
; 541 +44 qe! | 
> 542 0630 2! msg - with inhibit signal bit set 
> 943 0631 2 | | 
> 544 bo8¢ 2 ! SIDE EFFECTS: 
; 545 0633 2! ; : 
; 546 0634 2! An error wiil be signalled 
; 547 0635 2 !-- 
; 548 0636 2 
3; «549 0637 2 LOCAL : : 
; 550 0638 2 tmp_desc : $desc_ block, ! A descriptor for the file name 
3 a3) st 4 2 nam_blk : $ref_bBlock; ! Pointer to the name block 
3 228 0641 $ nam_blk = _.fabb Cfab$l_nam]; ' Get pointer to the name block | 
: 554 064 tmp_desc Cdsc$b_class] = dsc$k_class_s; ' Static desc 
3 22? p64? tmp_desc Cdsc$b_dtype] = dsc$k_dtype_t; ' String desc 
3 So7 0645 IF .nam_blk Cnam$b_rsl] GTRU 0 | 
; 558 pose THEN 
3 339 64 BEGIN ; 
; 560 0648 tmp_desc bdscéu. length) = ,nam_blk Cnam$b_rsl]; ! Create file name desc 
; 20) 308? tmp_desc dsc$a_pointer) = .nam_blk Cnam$l"rsa); igee 
; 68 0651 ELSE IF .nam_blk Cnam$b_esl] GTRU 0 
; 564 8636 THEN 
: 565 B02 BEGIN ] 
: 3 654 tmp_desc paectu. Loner = ,nam_blk Cnam$b_esl]; ' Create file name desc 
; 267 bee2 fag dese dsc$a_pointer] = .nam_blk Cnam$l_esaJ; , 20 
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v04- exch$util_file error 132800138 93:33:09 LEXCHNG.SRe EXCUTIL.832;1 oF 
: 569 657 ELSE 
; 570 28 BEGIN 
3 of 65 tmp_desc pesciv.longthd = .fabb pfabs>.fns $ ! Create file name desc 
; Lf 660 pap Gene dsc$a_pointer] = .fabb [fav$l_fnal; S pee 
: if, dese END; 
: 575 66 SIGNAL (.msg, 1, tmp_desc, .rms_status, .stv); | 
: 576 0664 . d ° | 
eS 0665 2 RETURN .msg; 
; 578 066 
; 579 0667 1 END; 
0000 00000 -ENTRY EXCHSUTIL_FILE_ERROR, Save nothin ; 0600 
5E 08 C3 44h 4 SUBL2 #8, SP . 3 
51 0¢ AC 00 9000 MOVL FABB, R1 ; 0641 
50 28 Al DO 00009 MOVL 40(R4), NAM_BL ; 
02 AE 01 8F BO 0000D MOVW #270, TMP_DESC+2 ; 0643 
0 AO 95 00013 TSTB 3(NAM_BLKY 3 0645 
0B 13 Ht | BEQL 1$ 3 
6E 03 AO 98 0001 MOVZBW 3(NAM_BLK), TMP_DESC 3; 0648 
04 AE 04 AO 00 O001C MOVL 4(NAM_BLK), TMP_DESC+4 ; 0649 
19 11 00021 BRB 3$ 3 0645 
0B AO 95 00023 1$: TSTB 11 (NAM_BLK) ; 0651 
0B 13 00026 EQL 2$ 3 
6 0B AO 9B 00028 MOVZBW 11(NAM_BLK), TMP_DESC : 0654 
04 AE OC AO dO 0002C OVL 12(NAM_BLK), TMP_DESC+4 : 0655 
09 11 00031 BRB 3$ ; 0651 
6E 34 Al 9B 00033 2$: MOVZBW 52(R1), TMP_DESC : 0659 
04 AE 2C = «Al 00 00037 MOVL 44(R1), TMP_DESC+4 ; 0660 
10 AC OD 0003C 3$: PUSHL STV ; 0663 
08 AC DD 0003F PUSHL RMS_STATUS ; 
08 AE 9F 00042 PUSHAB TMP DESC : 
01 dD 00045 PUSHL #1 3 
04 AC DD 00047 PUSHL MSG ; 
000000006 00 05 FB Q0O04A CALLS #5, LIBSSIGNAL : 
50 04 AC 00 00051 MOVL MSG, RO ; 0665 
04 00055 RET : 0667 
; Routine Size: 86 bytes, Routine Base: EXCHSUTIL_CODE + O1E6 
| 
| 


Coooooo 


Get the first volb, and scan the List of file names 
ptr = .exch$a_gbl Cexcg$a_volb_use_flink]; 
eee -ptr NEQA exch$a_gbl Cexcg$q_volb_use] 
BEGIN 
$Sblock_check (2, .ptr, volb, 483); 
IF CHSEQL (volb$s_vol_ident, .ident, volb$s_vol_ident, ptr Cvolb$t_vol_ident]) 
RETURN .ptr; 
ptr = .ptr Cvolb$a_flink); ! Advance to rext volb in the in-use queue 
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v04-000 exch$ut sl find- mounted. volb (ident) 12-8 08= 138 0}: 9:09 LEXCHNG SRe EXCUTIL.B32;1 9° 10) | 

: $} O68 1 75 ROUTINE exch$util_find_mounted_volb (ident : $ref_bvector) = ZSBTTL ‘exch$util_find_mounted_volb | ; 
: : iA ges ; 
; 0671 ! 3 
3 #4 Boog } FUNCTIONAL DESCRIPTION: : 
3 38S 0674 ‘ This routine scans the queue of in-use volume blocks to see if any have the same name as the : 
>; 588 0675 : input name. 3 
; 589 67 ! 3 
: 590 67 ' INPUTS: 3 
293 ber8 i id dd f the f b 
; } ent - address of the first byte ; 
; 338 etd ! 3 
3; 594 0681 ! IMPLICIT INPUTS: ; 
; 595 068 : ; 
; 596 068 ! none ; 
; 597 0684 ! ; 
; 598 0685 ' OUTPUTS: 3 
; 599 0686 ' : 
; 600 0687 ! none 3 
; 601 0688 ! 3 
; 608 0689 ' IMPLICIT OUTPUTS: $ 
; 60 0690 § ! 3 
; 604 0691 ! none F 
; 605 069 § ! 3 
3 069 ' ROUTINE VALUE: 3 
: 607 0694 § : - ; 
; 608 Be? 3 } 0 if name not found, address of volb if name is found : 
; 610 0697 2 ! SIDE EFFECTS: 5 
; 0698 § ! ; 
; 0699 ! none F 
3 0700 2 !-- 3 
; 0701 3 
; 070 $dbgtrc_prefix (‘util_find_mounted_volb> '); : 
3 § LOCAL 3 
3 ptr : $ref_bblock, ! Pointer to scan along the queue : 
; § status : 
5 2 : 
| 
$ : 
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v04 exch$ut {l_find_ mounted. volb (ident) 14- =hepe 1382 2: $3: 39 EXCHNG SRE ekeurit os Oboe Page 8) 
.¢ 725 
; 639 7 END; 
: 640 7 
; 641 7 8 RETURN 0; 
3; 642 07 END; 


003¢ 00000 .ENTRY EXCHSUTIL_ FIND_MOUNTED_VOLB, Save R2,R3,R4,-; 0668 
55 000000006 EF 9 90002 MOVAB EXCHSA_GBL, R5 ; 
50 65 D0 0000 MOVL FX H$A-GBL, RO + 0712) 
54 00c0 c0 pO 0000C MOVL 92(ROJ, PTR : 
50 65 000000C0 8F C1 00011 1$: ADDL3 a 52, af XchA. GBL, RO + 0714 
50 54 01 00019 CMPL ; 
28 13 0001C BEQL as : 
52 041B00F3 BF p0 O001E MOVL 468878579, R2 : 0718 
51 0163 ef C 000 MOVZWL ; 
50 4 DO 0002A OVL PTR, RO : 
000000006 EF 16 0002D JSB EXCHSUTIL BLOCK_CHECK ; 
69 AG 046 «BC 0080 29 00033 CMPC3) #128, @IDENT, 105(PTR) ; 0720 
04 12 00038 BNEQ ; 
50 54 D0 0003p MOVL PTR, RO + 0722 
04 00040 RET : 
54 64 DO 00041 2s: MOVL (PTR), PTR + 0724 
CB 11 00044 BRB 1$ + 0714 
50 D4 00046 3S: CLRL = RO : 0728 
04 00048 RET : 0729 


; Routine Size: 73 bytes, Routine Base: EXCHSUTIL_CODE + 023C¢ 
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voe exch$ut’l_namb_al locate o738p-1382 93:53:09 HeXcune Saedexcutti esos a9e 44 


; 644 730 1 GLOBAL ROUTINE exch$Sutil_namb_allocate = ZSBTTL ‘exch$util_namb_allocate' ; 
: 645 f 1 BEGIN | ; 
: ede rag i | 
: ote oF 2 FUNCTIONAL DESCRIPTION: | : 
: 650 7 § i This routine allocates one $NAMB. If S$NAMBs are available, one is moved from the available queue to| : 
$ $2) Bf in-use queue. If none are available, then a fresh $NAMB is created and placed on the in-use queue. | ; 
; £38 0739 2 | INPUTS: : 
; 654 0740 ! 3 
Bees aL ll 
i 687 0748 | IMPLICIT INPUTS: | 2 
: 659 0745 i exch$a_gbl Cexcg$q_namb_all] - List of allocated name blocks | : 
; 660 0746 : exch$a_gbl Lexcg$q_namb_avl] - queue of available name blocks : 
3 00 Loe 4 exch$a_gbl CLexcg$q_namb_use] - queue of name blocks in use : 
; $08 0749 2 | OUTPUTS: : 
; 664 0750 ! 3 
3 93? 163 ; } none : 
: 667 EX i IMPLICIT OUTPUTS: : 
; 668 0754 ! 3 
2 ag 8 | ile : 
: 671 0757 { ROUTINE VALUE: | : 
; $7? 3534 $ ; address of the allocated name block 3 
: 675 0761 $ | SIDE EFFECTS: : 
; 677 ores $ i All errors are fatal : 
; 678 0764 § ted F 
: B80 O766 5 LOCAL | 
> 681 0767 $ offset, ! Local temporary | ; 
: 682 0768 2 ptr : $Sref_bblock, ! A local pointer to the namb : 
; 683 0769 status 3 
3; 684 0770 : F 
: Oae Nae : 
; on hae First, try to find one in the available queue | ; 
: ret 14a ptr = Squeue_remove_head (exch$a_gbl Cexcg$q_namb_avl]); ; 
3 p34 14a 1 If we didn't find one, then it will have to be created | ; 
i 693 0779 2 IF ptr EdL 0 | 3 
i 695 O76 BEGIN : 
: oo O88 Allocate a fresh namb from virtual memory. The entire block has been cleared to nulls | : 
; 699 b7Bs ptr = exch$util_vm_allocate_zeroed (exchbLk$s_namb); ; 
; 700 0786 : 
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exch$util_namb_allocate 1fcden 1984 9:33:09 EEXcune Seedexcur ii esos 298 95 
: 78) r ‘ Place the namb at the head of the List of allocated blocks 
: 70 7 tr Cnamb$a_alloc]) = .exch$a_gbl Cexcg$a_namb_ alloc]; 
; Ae as: gtr ine _gbl Concose.n _namb walloed = pert ~ 7 
s. 79 ' Set th k identifi 
701 738 hs Soe dent ae fields 
: 008 re ock_init (.ptr, namb); 
: at e ! Initialize the dynamic strings 
: 71 798 $a n_str_desc_init (ptr [namb$q_input)); 
: ig 799 S“yn7s “str_desc_init (ptr namb$ $q7 fu Tnane)); 
; «7146 800 sdyn_str_desc_init (ptr [namb$q_expand d}): 
s 715 801 Sdyn_str_desc_init (ptr (namb$q_ result): 
: 716 et Sdyn_str_desc_init (ptr Cnamb$q_device “dvid); 
: 717 080 
3; 718 0804 END; 
; 719 0805 
: rg et Check our block type, fatal error if any problems 
; ree 0808 2 S$block_check (2, .ptr, namb, 484); 
3 fe 0809 
: ose pate Place the namb at the head of the in-use queue 
3 £g6 Bag Squeue_insert_head (ptr Cnamb$q_header], exch$a_gbl Cexcg$q_namb_use]); 
; rs8 Baie } Set the last part of the block to nulls 
; 786 te CHSFILL (0, exchblk$s_namb - namb$k_start_zero, .ptr + namb$k_start_zero); 
: 732 0818 ' Return the address of the name block to the caller 
s 735 0819 ! 
: 734 0820 RETURN .ptr; 
3s 735 sth 
; 736 0822 1 END; 
OOFC 00000 -ENTRY ExCHAUTILS NAMB_ALLOCATE, Save R2,R3,R4,R5,- ; 0730 
57 000000006 EF 9 0000 ov EXCHSA_GBL : | 
51 67 taint te BE cj $0005 ADDL S #140 EKCHEA BL. R1 : 0775. 
50 00 81 OF 99011 REMQUE a0(R{), : | 
o 1C Oot3 BVC 1$ : 
g D4 0001 CLRL PTR 3 
9 11 00019 &RB 2s ; 
56 0 09 001B 1$: MOVL T_. PTR : 
A ! 49 23: BNEQ 3$ ; 0779 
7E 010A F 3C 000 MOVZWL #266, -(SP) ; 0785 
0000v ct 1 F 0 CALLS #1, EXCHSUTIL_VM_ALLOCATE_ZEROED : | 
6 ! D A MOVL RO Ny : 
50 67 dO 000 MOVL EXCHSA cB : 0789 
oc Ab 0080 £0 D 99 MOVL 28(ROJ scPtR) ; 
0080 0 6 DO 000 MOVL PTR, 128(R : 0790 
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V04 exch$util_namb_allocate 1 730071382 93:33:09 LEXCHNG SRE EXCUTIL.832;1 HD vo 
08 Ab 010A Bf 0 00038 Ovw #266 8(PTR) : 0794. 
A A 9 BE 00041 MNEGB #9, 10(PTR) : | 
2 10 Ab 45 MOVAB 16(PTR), RO : 0798 | 
000000006 ai D 49 MOVL TMPL, R2 : 
: 2 D 20 MOVL 2, (RO) : 
1 000000006 fF D 3 MOVL TMPL+4, R1 : | 
06 =A 1 p A MOVL R1, 4(RO) : 
5 18 «OA 5 MOVAB 24(PTR), RO + 0799) 
6 2¢ 9 0006 MOVL = R2, (ROS : | 
04 Ad p 0 MOVL 1, 4(RO) : | 
5 20 A 69 MOVAB 32(PTR), RO + 0800 
69 2 D p MOVL  R2, (ROS : 
06 =A p MOVL 1, 4(RO) : 
50 28 As ; 74 MOVAB 4O0(PTR), RO + 0801 | 
60 52 DO 00078 MOVL 2, (ROS : : 
04 Ad 51 DO 0007B MOVL 1, 4(RO) : 
50 30 ag 9 007F MOVAB 48(PTR), RO : 0802 | 
60 52 DO 00083 MOVL 2, (ROS : 
04 Ad 57 DO 00086 MOVL 1, 4(RO) : 
52 O10A00F7 = BF b0 0008A 3$: MOVL  #17432823, R2 : 0808 
51 O1E4 BF C 00091 MOVZWL #484, R1 : 
50 6 DO 000% MOVL PTR, RO ; 
000000006 EF 16 00099 JSB EXCHSUTIL BLOCK_CHECK : 
50 67 00000084 F C1 0009F ADDL3) #132, EXCASA_GBC, RO ; 0812 
60 66 OE 000A7 INSQUE (PTRS, (RO) : 
QOOA2 = BF 00 6E - 00 2¢ OOQAA movCS #0, (SP), #0, #162, 104(PTR) : 0816 
50 56 DO 0008 MOVL PTR, RO : 0820 
04 000B6 R : 0822 


; Routine Size: 183 bytes, Routine Base: EXCHSUTIL_CODE + 0285 


87 
87 
a ere : Place the namb at the end of the available queue. 

79 a7 Squeue_insert_tail (ptr Cnamb$q_header], exch$a_gbl Cexcg$q_namb_avlJ); 
B79 RETURN; 


13 | 
EXCHSUTIL Facility-wide misc routines 18-Se 1984 01:25:39 AX-11 Bliss-32 V4.0-742 Pa A 
VvO4 exch$util_namb release (addr) 14-Sep-19 4 93:53:09 EXCHNG.SRCJEXCUTIL.B32;1 9453 
: 739 ; 1 GLOBAL ROUTINE exch$util_namb_release (addr) : NOVALUE = ZSBTTL ‘exch$util_namb_release (addr)' | : 
; 740 5 § eels | ; 
; 741 § i 
; S FUNCTIONAL DESCRIPTION: : 
; pad 8 ; This routine deallocates one S$NAMB. The SNAMB is movéd from the in-use queue to the available vite ; 
; 2 1 2! INPUTS: ; 
3 248 § addr - address of the block to release : 
i £30 B35 ¢ {IMPLICIT INPUTS: : 
; z § OB 5 i exch$a_gbl fexcg$a_nanb_ avi = queue of available name blocks : 
; Pee 33 3 exch$a_gbl Lexcg$q_namb_use] - queue of name blocks in use : 
3 139 O840 ¢ { OUTPUTS: ; 
; F88 OB4¢ i none ; 
; me 084 : : 
: 239 O844 ¢ i IMPLICIT OUTPUTS: | : 
: 761 Bae8 i none : 
3; 084 ; : 
i 768 O848 ¢ | ROUTINE VALUE: ; 
: 765 0850 i none : 
; 766 0851 ! : 
: rer peg SIDE EFFECTS: : 
; 169 O84 ! ALL errors are fatal ; 
: 771 0856 2 : 
s 7 0857 LOCAL : 
: 46 th + eb : Sref_bblock, ! A local pointer to the namb : 
: 775 0860 ; ; 
; 776 0861 ; 
3; 777 Babe 3 
: ore Baez : First, move the pointer to a local variable : 
; ree 0865 ptr = .addr; | 
: As O36? : Check our block type, fatal error if any problems 3 
; eee 0. ; Sblock_check (2, .ptr. namb, 485); ; 
: 4] A : Remove the namb from where ever it is in the in-use queue ; 
: ree 5 Squeue_remove (ptr Cnamb$q_header]); ; 
; 790 | 
; | 3 


; Routine Size: 


Fos) Sey wide misc routines 
exch$util_namb_release (addr) 


0880 1 END; 


0000008C 


as 


Routine Base: 


oto oO—rw 


50 sme * ty 


“i 
i 

000000006 | 3 1 
i 


47 bytes, EXCHSUTIL_CODE + 033¢ 


K 13 
1o~3e0 “19 
14-Sep e=19 


a 12:8 


5: 
9: 


09 


AX-11 Bliss-32 V4.0-742 
EXCHNG.SRCJEXCUTIL.B32;1 


_NAMB_RELEASE, Save R2,R3 


BLOCK _ CHECK 


ASA GBL, R 
me * 


13 | 


EXCHSUTIL Facility-wide misc routine 1b-Se -1984 01:25:39 AX-11 Bliss-32 V4.0-742 Page 26 

§06c000 exchSutil_radix50. from ascii (asc_cnt, asc, r50 14-Sep-19 4 9:33:89 LEXCHNG. SRE EXCUTIL.832;1 ’ (13) | 

3 Le dA 0881 1 SLOBAL ROUTINE exchSutil_radix50_from_ascii (asc_cnt, asc, r50_cnt, 750) = ZSB7TL "exch$util_radix50_fr | : 
: 799 : 16+ : 
3 go 4 ! : 
; 8 5 FUNCTIONAL DESCRIPTION: | ; 
; 608 os ; } This converts ascii strings to Radix-50. : 
b4 . | e 
; 805 0889 ' INPUTS: 3 
; 806 90 ! 3 
; 807 891 : asc_cnt = count of ascii characters to output 3 
3 aoe 36 ' asc - address of buffer of ascii characters ; 
: 809 9 i r50_cnt = count of radix-50 characters F 
; 810 0894 ! 3 
: 811 0895 2 | IMPLICIT INPUTS: | ; 
3 812 +44 ! 3 
; 81 089 ! none | ; 
: 614 0898 ! 3 
s 815 0899 ' OUTPUTS: 3 
; 816 0900 ! 3 
; 817 0901 ‘ r50 - address of Radix-50 string : 
; 818 2206 ' g 
; 819 090 ' IMPLICIT OUTPUTS: : 
; 820 0904 ' 3 
; 821 0905 ! none 3 
3 ac¢ 0906 ! 3 
s 82 0907 ' ROUTINE VALUE: FY 
> 824 0908 ' 3 
3 oe? 84 true if conversion went smoothly, false if anything unusual : 
; 827 0911 3 ' SIDE EFFECTS: ; 
; 828 091 ! 5 
; 829 0913 2! none 3 
6 830 0914 les ° 
s 83) 0915 F 
; 832 0916 LOCAL 3 
; 833 0917 buf : $bvector [6] 3 
A BBG : 
; 836 Bess 3 EXTERNAL ROUTINE irad50 : ADDRESSING_MODE (GENERAL); ! F4P compatibility routine : 
; 838 0938 ptosis check (2, (.asc_cnt LEQU 6), 165); 3 
3 op 44 ? CHSCOPY (.asc_cnt, .asc, 32, 6, buf); ; 
; Bes $958 irad50 (r50_cnt, buf, .r50); 

; aes b35$ 

; «84 0927 RETURN true; 

3 844 0928 

; «6845 0929 1 


.EXTRN IRADSO, EXCHS$_BADLOGIC 
003¢ 00000 -ENTRY EXCHSUTIL_RADIXSO_FROM_ASCII, Save R2.R3,- ; 0881 


SE 08 C2 00002 SUBL2 #8. SP ; 


: 


anceeescbeansnapierematpanicnenacensmestsceen =) 


m 13 


EXCHSUTIL Facility-wide misc routine Sep-1984 5:39 AX-11 Bliss-32 V4.0-742 P 7 
v04- exch$ut tl radix50. from.ascii (asc_cnt, asc, r50 1 12: Sep- 1984 93: $3: 9 EXCHNG.SRCJEXCUTIL.B32;1 age 148) 
06 04 Ag D1 $008 CMPL ASC_CNT, #6 3: 0922 

' 1 18 ) BLEQU 1$ $ 

7E AS : 4d ot ty #165, -(SP) : 

000000006 00 ennai 5 PB a011 CheLS A eae: Serbpe 
06 20 08 BC 04 aC 2c OO1E 18: MOVE Ast _CNT, @ASC, #32, #6, BUF + 0923 
10 AC DD 00026 PUSHL R50 > 0925 

04 AE 9F 00029 PUSHAB BUF é 

OC AC 9F 0002C PUSHAB R50_CNT : 

000000006 99 9; FB iy CALLS #3, IRADSO : 
0 1 OD 036 MOVL #1, RO 3 0927 
04 00039 RET 3; 0929 

; Routine Size: 58 bytes, Routine Base: EXCHSUTIL_CODE + 0368 


SF 


0 00 00 C0 C9 CD 0D CD CD CD CO 
PAA 
WN —"OOONOULWN—O0OoO~n 


ao 


Be Se Se Se Ge FH Se Ss Se Ss Ge Gr oe SH Se Se Se Se Oe Se oe SH Se Se Ge Se Se Se oe Se Se Se Se Se Se Se Se Se Seas ee 
oo 
o 
~N 


3; Routine Size: 


Facilit 
exch$ut 


930 


felelelelelelelelelelololo) 
oOOOOOOOOONOONOO0O 


RRS 
WR ODONONE WR 


oooo 
ooo 


20 bytes, 


N 
“wide misc routines 19"3 Se 


L 


13 


radix50_to_ascii (asc cnt, 50, asc) 


-@ 
om 


FUNCTIONAL DESCRIPTION: 
This converts Radix-50 strings to ascii. 
INPUTS: 


asc_cnt = count of ascii characters to outpu 
r50- - address of Radix-50 string. 


IMPLICIT INPUTS: 
none 
OUTPUTS: 


asc - address of buffer to receive ascii characters 


IMPLICIT OUTPUTS: 
none 
ROUTINE VALUE: 


p-1984 
elie 4 


put 
Asc_cnt implies the length of this string. 


A ——E 5 
' 


AX-11 Bliss-32 V4.0-742 
EXCHNG.SRCJEXCUTIL.B32;1 (14 


= ZSBTTL ‘exch$util_radix50_to_ascii (asc_cnt, 


true if conversion went smoothly, false if anything unusual 


SIDE EFFECTS: 
none 


XTERNAL ROUTINE r50asc 
50asc (asc_cnt, .r50, .asc); 


ETURN true; 


‘ 0000 00000 

7E 08 AC 7D 00002 

04 AC 9F 00006 

00000000G 00 03 FB 00009 
50 01 00 00010 

04 00013 

Routine Base: EXCHSUTIL_CODE + 03A5 


: ADDRESSING_MODE (GENERAL); 


ERSNeUT Th RADIXS5O_TO_ASCII, 


z2z2Bprwy 
Wu 
o 


| 
| 
! F4P compatibility routine 
| 
} 


RSOASC . 


10. Save nothing 0 
-(SPJ ; 0966 


“CNT 
, "RSOASC 
RO 


14 
T Facility- i i -Sep- 725: -11 Bliss- -0- 
ene IL acil ty wide misc routines 18-Sep-1964 91:53:38 yan Bliss-32 v4.0 fae Page 48) 


exch$util_rmsb_allocate EXCHNG.SRCJEXCUTIL.B32; 1 
>; 889 971 1 GLOBAL ROUTINE exch$util_rmsb_allocate = ZSBTTL ‘exch$util_rmsb_allocate’ 
; 890 97 BEGIN 
; 891 97 '++ 
; 89 974 : 
; Ser yar? : FUNCTIONAL DESCRIPTION: 
; 895 $979 ' This routine allocates one SRMSB. If SRMSBs are available, one is moved from the available queue to. 
3 538 bons in-use queue. If none are available, then a fresh $RMSB is created and placed on the in-use queue. | 
; 898 0980 ' INPUTS: 
; 899 0981 ! 
; 900 34-04 ‘ none 
; 901 098 : 
; Ww 0984 ! IMPLICIT INPUTS: 
; 90 0985 : ; 
; 904 0986 2! exch$a_gbl Cexcg$q_rmsb_all] - List of allocated file blocks 
3 0987 § : exch$a_gbl Cexcg$q_rmsb_avl] - queue of available file blocks 
; 906 0988 : exch$a_gbl Cexcg$q_rmsb_use] - queue of file blocks in use 
; 907 0989 § ‘ 
; 908 0990 ! OUTPUTS: 
: 909 0991 2! 
; 910 099 § : none | 
>; 911 099 : 
3 aig 0994 2 ! IMPLICIT OUTPUTS: | 
; (91 0995 2! 
; 914 0996 2! none 
>; 915 0997 2! 
; 916 0998 2 ! ROUTINE VALUE: 
s 917 0999 2! : 
; 918 1000 2! address of the allocated file block 
; 919 1001 § : 
: 920 1002 ! SIDE EFFECTS: 
: 921 1003 2! 
3 Fee 1004 2! ALL errors are fatal 
; 923 1005 2 !-- 
> 924 1006 2 
> 925 1007 210 
: 926 1008 2 offset, ! Local temporary 
3 Per 1009 2 ptr : $ref_bblock, ! A local pointer to the rmsb 
: 928 1010 2 status 
: 929 1011 2 3 
; 930 1012 2 
; 931 1013 i 
3 35 ole First, try to find one in the available queue 
3 ote gis ptr = $queue_remove_head (exch$a_gbl Cexcg$q_rmsb_avl]); 
; 936 1018 ! If we didn't find one, then it will have to be created 
: 937 1019 : 
; 938 1020 IF .ptr EQL 0 
; 939 1021 THEN 
: 940 1058 BEGIN 
3; 941 102 : ; 
3 ak} 1558 : Allocate a fresh rmsb from virtual memory. The entire block has been cleared to nulls 
3: 944 1036 ptr = exch$util_vm_allocate_zeroed (exchblk$s_rmsb); 
; «6945 102 


eee eee... ae = < —-- 


14 
EXCHSUTIL Facility-wide misc routines 1b-Se 1984 01:25:39 AX-11 Bliss-32 V4.0-742 Page 30 
v04-000 exch$util_rmsb_allocate 14-Sep-19 4 95:53:09 LEXCHNG SRE EXCUTIL.B32;1 . 3s 
; 3c$ 19 8 Place the rmsb at the head of the list of allocated blocks : 
: 948 1030 ptr Crmsb$a_alloc] = ssuchte get Cexcg$a_rmsb_alloc]; | 3 
3 rH 18 1 exch$a_gbl Cexcg$a_rmsb_alloc] = .ptr; | ; 
: 951 1038 ' Set the block identification fields ; 
; 926 1034 : ; 
; Ser 18 ; $block_init (.ptr, rmsb); | : 
3 322 1037 } Several items are located at the end of the $RMSB, fill in the pointers : 
:; 957 1039 ptr rmsb$a_ fab = .ptr + rmsb$k_length; ! Fab is at end of block : 
; 958 1040 ptr Crmsb$a_rab) = .ptr Crmsb$a_fab] + fab$k_bln; i Rab right after Fab | : 
; 959 1041 ptr irmsb$a_nam)] _ = .ptr Ermsb$a_rab] + rab$k_bln; ! Nam after Rab ; 
; 960 ek 3 ptr Lrmsb$a_esbuf] = .ptr Ermsb$a_nam] + nam$k_bln; ! Expanded string after Nam . 
3 +2 eer 3 ptr Crmsb$a_rsbuf] = .ptr Crmsb$a_esbuf] + nam$c_maxrss; ! Result string after Ebuf ; 
: 96 1045 3 END; ; 
> 964 1046 | : 
; 965 1047 § ! Check our block type, fatal error if any problems : 
> 966 1048 } : 
3: 967 1049 2 $block_check (2, .ptr. rmsb, 407); | : 
; 968 1050 § . 
3 434 Was § Set the last part of the block to nulls | : 
: 4a) 1988 § CHSFILL (0, exchblk$s_rmsb - rmsb$k_start_zero, .ptr + rmsb$k_start_zero); | . 
; 48 192? 2} Insert the block at the head of the in-use queue | ‘ 
: Wee ; Squeue_insert_head (ptr Crmsb$q_header], exch$a_gbt Cexcg$q_rmsb_use]); ; 
: 977 1059 2 ! Return the address of the file block to the caller | : 
; 978 1060 2! : 
: 979 1061 2 RETURN .ptr; : 
; 980 1996 2 | : 
; «981 1063 1 END; | : 
OFC 00000 ENTRY EXCHSUTIL_RMSB_ALLOCATE, Save R2,R3.R4,R5.~ ; 0971 : 
57 900000006 EF 9F 0000 MoV EXCHSA_GBL, R7 ; ; 
51 67 000000A0 8F C1 0000 ADDL3 #160, EXCHSA_GBL, R1 : 1016 
50 00 81 OF 00011 REMQUE @0(R1), _T_ ; 
04 1C B00 18 BVC 1$ : 
56 04 0001 CLRL PTR : 
03 11 00019 BRB 2$ 3 
56 50 0 001B 1$: MOVL T_, PTR : 
52 1 por 2$: BNEQ 3$ : 1020 
7E 0316 8F 3C 000 MOVZWL #790, -(SP) : 1026 
0000v CF Q1 FB 000 5 CALLS #1, EXCHSUTIL_VM_ALLOCATE_ZEROED ; 
6 0 D Bp A MOVL R : 
gc A oom fo BS SSR RENE RERUN, 4a 8, pew 
0096 C0 56 D0 00036 MOVL PTR, Or acnbs : 1031 


ee ee 2 ai: = —S | ceed 


D 14 
EXCHSUTIL Facility-wide misc routines 16-Sep-1984 01:25:39 AX-11 Oi iss -32 v4.0-742 Page 31 
v04- exchSutsl_rmsb_allocate 13-808- 1382 et EXCHNG. SRC} EXCUTIL.B32;1 ’ a3) 
08 Ab 0316 BF 0 00038 MOVW #790, 8(PTR) : 1035 
OA Ab A 8E 0041 MNEGB #10, 10(PTR) : 
10 6 é AG ; 4 MOV 36(R6) 16(PTR) + 1039 
16 Ab 10 A6 99000 0 BF Ci 0004A ADDL 0. 1BCPTR) , O(PTR) + 1040 
18 A6 14 a6 00000044 8F C1 00054 ADDL $ : ‘ (PTR), 24(PTR) + 1041 
1¢ Ab 18 A6 00000060 8F (C1 0056 ADDL : 4(PTR) (PTR) + 104 
20 Ab 1C Ab Q0000FF F C1 006 ADDL : § 28 (PTRS, 2(PTR) + 104 
52 0 16008 ¢ F BO 000 : 3$: MOVL #51773686, R2 + 1049 
51 019 F 3¢C 0007 MOVZWL #407, R1 : 
50 6 DO 0007E L —sPTR, RO : 
000000006 EF 16 00081 EXCHSUTIL -BLOCK CHECK : 
O2F2 = «BF 00 6E i 00 2c 00087 MOVCS #0, (SP),~#0, #754, 36(PTR) : 
50 67 00000098 8F C1 90090 ADDL3. #152, EXCHSA_GBL, RO + 1057 
60 66 OF 00098 INSQUE (PTRS, (RO) : 
50 56 DO 0009B MOVL PTR, RO : 1061 
04 0009E RET + 1063 


; Routine Size: 159 bytes, Routine Base: EXCHSUTIL_CODE + 0389 


14 
EXCHSUTIL Facility-wide misc routines hese -1984 01:25:39 AX-11 Bliss-32 V4.0-742 P 32) 
V04= xchSutil_rmsb release (addr) 12286871382 93:83:09 LEXCHNG.SRe EXCUTIL.832;1 aattt st 
987 86% SL OBAL ROUTINE exch$Sutil_rmsb_release (addr) : NOVALUE = ZSBTTL ‘exch$util_rmsb_release (addr)' | 
985 6 ++ 
238 6 ‘ 
st B98 FUNCTIONAL DESCRIPTION: 
p43 076 This routine deallocates one $RMSB. The SRMSB is moved from the in-use queue to the available queue 
991 ore INPUTS : | 
237 ore addr - address of the block to release 
999 Or ; IMPLICIT INPUTS: 
997 078 2} exch$a_gbl Cexcg$q_rmsb_avl] - queue of available file blocks 
a8 On0 exch$azabl pexegsa.rmsb-avt - queue of file blocks in use 
900 81 ; OUTPUTS: 
00 O88 i none 
00 084 ! 
B88 MH IMPLICIT OUTPUTS: 
006 087 i none 
7 088 ! 
44 ROUTINE VALUE: 
0 091 i 
1 8 ! 
§ a7 SIDE EFFECTS: 
: 4} ALL errors are fatal 
6 97 2 
7 98 LOCAL 
8 99 ptr : $ref_bblock, ' A local pointer to the rmsb 
4 status 


First, move the pointer to a local variable 
tr = .addr; 
' Check our block type, fatal error if any problems 


p 
' 
' 
$block_check (2, .ptr, rmsb, 519); 
i] 
: 
$ 
’ 


POPIPOMONPOPONIPUNR) 2 SS 


WN CO OCOnNOuULSWwN— 


| 
| 
| 
| 


! Remove the rmsb from where ever it is in the in-use queue 


WALA 


queue_remove (ptr Crmsb$q_header]); 


rs 


Place the rmsb at the end of the available queue and the head of the in-use queue | 
$queue_insert_tail (ptr [rmsb$q_header], exch$a_gbl Cexcg$q_rmsb_avl]); 
RETURN; 


ee ee ce ee ee ee ee a ee ee a ee el el ed a el a ee ae ed 
SOCSSOCOOSCOSCOSCSO SOOO OOSOOOOoOoCoOoOooooseo 
a ee ed ed ed ed ed od od et CO OO OOOO 


A et et et tt ot ot st 1OOOOOOOOOO 
SOOM EWN" OVOONOUE WN 


Be ee Be Oe Se Se Be Ge Be Se Se Ge Fe Se Se Se Fe Fe Se Ge Ge Fe Fe Se Ge Se Se Ge Ge Ge Ge Ge Se Se Ge Ge Se Fe Se Ge oe Ge SH Se SH Se SES Shee SESE SE Se Sees ee 


EXCHSUTIL 
v04- 


; 1040 


; Routine Size: 


Facility-wide misc routines 
exch$util_rmsb_release (addr) 


1121. 1 END; 


oO 
o 


SOONO-OWwITO 


m SM "Poroon 


020 F 
000000006 
F 


50 000000006 EF 000000A0 
4 60 


3 046 AC 
: 031600F F 
0 
50 


47 bytes, Routine Base: EXCHSUTIL_COD 


+ 0458 


4 01:25:39 AX-11 Bliss-32 V4.0-742 
4 93:33:09 YEXCHNG. SRE EXCUTIL.B32;1 


ENTRY EXCHSUTIL_RMSB_RELEASE, Save R2,R3 
OVL ADDR PTR 

OVL  #51773686, R2 
MOVZ2WL #519, R1 

OVL PTR, RO 

JSB EXCHSUTIL BLOCK CHECK 

REMQUE (PTR), _T 

ADDL3 #160, EXCASA_GBL, RO 

INSGUE (PTRS, a4 (ROY 


Bee Se Se Be Se Be Se Be Se 
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Page 34 
EXCHNG. SRCJEXCUTIL.B32:1 9 35 


ZSBTTL ‘exch$util_rtiictx_allocate (volb, fi 


If one is available, it is moved from the avai 


The entire block has been cleared to nulls 


14 
EXCHSUTIL Facility-wide misc routines 18-5¢ -1984 01:25:39 
Vv04- exch$util_rtilctx allocate (volb, filb) 1 ~Sep-19 4 93:33:09 
: 1008 11 ¢ 1 GLOBAL ROUTINE exch$Sutil_rtlictx_allocate (volb, filb) = 
3; 104 11 BEGIN 
3 1044 1124 'e+ 
3 1045 1125 : 
3 Inee 11 § ' FUNCTIONAL DESCRIPTION: 
3: 104 11 ' 
3: 1048 1128 ! This routine allocates one RT=-11 file context block. 
: 1049 1129 ' queue to the in-use queue. 
: 1050 11350 ! queue. 
3; 1051 1131 ! 
3 1928 11 ¢ ' INPUTS: 
; 105 11 : 
; 1054 1134 : volb - pointer to the associated volb 
3; 1055 1135 ! filb = pointer to the associated filb 
: 1056 1136 ! 
3; 1057 ef ! IMPLICIT INPUTS: 
; 1058 1138 : : ‘ 
; 1059 1139 ; exch$a_gbl Cexcg$q_rtiictx_all] - List of allocated file blocks 
; 1060 1140 : exch$a_gbl Lexcg$q_rtiictx_avlJ - queue of available file blocks 
; H's 2 134) 2 exch$a_gbl Cexcg$q_rtiictx_use] - queue of file blocks in use 
3 1008 1108 3 ' OUTPUTS: 
3: 1064 1144 ! 
3; 1065 1145 2! none 
3: 1066 1146 2! 
3: 1067 1147 2 ! IMPLICIT OUTPUTS: 
: 1068 1148 2! 
3; 1069 1149 2! none 
: 1070 1150 2! 
: 1071 1151 2 ! ROUTINE VALUE: 
3 1076 1126 § ! ; 
3; 107 115 ' address of the allocated file block 
3 1074 1154 ! 
3; 1075 1155 ' SIDE EFFECTS: 
3; 1076 1156 ! 
3; 1077 1157 2! ALL errors are fatal 
; 1078 1158 2 !-- 
3; 1079 1159 § 
; 1080 1160 LOCAL 
: 1081 1161 2 offset, ' Local temporary 
; He 1168 § ptr : Sref_bblock, ! A local pointer to the rtiictx 
3; 108 116 Status 
Be WE 
3 19B4 1166 . ' 
: Hs 4 oh 14 First, try to find one in the available queue 
; H's 34 1199 ptr = S$queue_remove_head (exch$a_gbl Cexcg$q_rtiictx_avl]); 
: 1091 1171 ! If we didn't find one, then it will have to be created 
: 944 1176 ! 
3 1 117 IF .ptr EQL 0 
3: 1094 1174 T 
3; 1095 1175 BEGIN 
: 1096 1378 
; 109 117 ' Allocate a fresh rtlictx from virtual memory. 
; 1098 1178 : 


If none are available, then a fresh block is created and placed on the i 


H 14 
EXCHSUTIL Facility-wide misc routines 16-Sep-1984 01:25:39 AX-11 Bliss-32 V4.0-742 
belt exch$ut ( rtiletx allocate (volb, filb) 14-Sep-19 4 9:33:09 LEXCHNG. SRC EXCUTIL.B32;1 
: 1999 1178 ptr = exch$util_vm_allocate_zeroed (exchblk$s_rtlictx); 
3 rH 1} 1 Place the rtlictx at the head of the List of allocated blocks 
511 § 11 : ptr (rtlictx$a_alloc] = sexch$a_gbl Cexcg$a_rtiictx_allocd; 
; 110e 1 : exch$a_gbl Cexcg$Sa_rtlictx_alloc] = .ptr; 
; 1106 1 6 i Set the block identification fields 
; 1108 1188 Sblock_init (.ptr, rtilctx); 
: 1109 1189 
3: 1110 1190 END; 
3 1111 1191 
: 1i1¢ 1138 Check our block type, fatal error if any problems 
3 Vie Vh3e $block_check (2, .ptr, rtiictx, 486); 
; 1338 1138 } Set the Last part of the block to nulls 
5 BB Bb CHSFILL (0, rtlictx$k_end_zero - rtlictx$k_start_zero, .ptr + rtlictx$k_start_zero); 
; 11st 1300 } Insert the block at the head of the in-use queue 
3 1156 1208 $queue_insert_head (ptr Crtlictx$q_header], exch$a_gbl Cexcg$q_rtlictx_use]); 
; 11246 1502 ! Set the two associated fields 
: 1125 1205 ! 
: 1126 1206 ptr pre} icexSe_essoc vob] = .volb; 
: Vist 1¢or ptr (rtlictx$a_assoc_filb] = .filb; 
: 1129 1209 ' Return the address of the file block to the caller 
: 1130 1210 ! 
3 1131 1211 RETURN .ptr; 
3 1136 isié ra 
3; 113 121 1 END; 
OOFC 00000 ENTRY ERCHSUT IE ATT ICTR LOCATE, Save R2,R3,R4,- 
57 000000006 cr 9E 00002 none EXCHSA GBL, R7 
51 67 00000084 8F C1 00009 ADDL3. #180, EXCH$A_GBL, R1 
0 1 OF 00011 REMQUE @0(RI), _T_ 
B4 1C Bo 13 BVC 1$ 
D4 01 CLRL PTR 
11 019 BRB 2s 
56 8 BM 1$: MOVL T_, PTR 
1 if 23: BNEQ 3$ 
7E 82 F 9A 000 MOVZBL #130, -(SP) 
0000v CF 1 F 4 CALLS #1, EXCHSUTIL_VM_ALLOCATE_ZEROED 
6 9 i) 9 MOVL RO, PTR 
67 D C MOVL EXCHSA cal RO 
0c As 00a8 3660 (OD F MOVL é (ROT (PTR) 
OOAB  C 6 p 0 5 MOVL PTR 8 cr ) 
08 A6 82 BF 9B A MOV2BW #136, 8(PTR) 
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eet exch$util rtilctx allocate (volb, filb) 127808-1 382 93:58; a EXCHNG.SRCJEXCUTIL.B32:1 . a 
OA af 3 MNEGB a : 

53 o0s290r4 F p 43 3$: OV a8t9 + 1194) 

£6 oBF 4A MOVZWL ; 

0 6 4F MOVL “RO. $ 
000000006 Ff 3g JSB EXCASUTIL 8 Ock cHECK : 

0066 «BF 00 6E ‘ 69 C 38 MOVCS #0, (SP),"#0, #702, 28(PTR) + 1198 

50 67 OOOOD0AC = BF 1 61 ADDL3 #172 EXCHSA_ GBL, RO : 1202 
60 aA F 69 INSQUE (PTRS, : 

16 6 06 AC OD d06¢ MOVL _—-VOLB, “ageprR) + 1206 

10 a6 08 aC 00 00071 MOVL FILB, 16(PTR) : 1207 

5 56 D0 9007 MOVL PTR, RO + 1211 

04 0007 RET + 1213 


; Routine Size: 122 bytes, Routine Base: EXCHSUTIL_CODE + 0487 
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“wide misc routines 1% 
Lirtlictx_release (addr) V6 
( 


$4 
' 


; FUNCTIONAL DESCRIPTION: 

i INPUTS: 

addr - address of the block to release 
i IMPLICIT INPUTS: 


exch$a_gbl pexcosa.rt} ictx avi - queue of aye L 


ble file blocks 
exch$a_gbl Lexcg$q_rtilctx_use] = queue o l 


! 

1 

' 

! 

' 

' 

! 

! 

i ila 

e blocks in use 
; OUTPUTS: 
none 
; IMPLICIT OUTPUTS: 
none 

: ROUTINE VALUE: 
none 

SIDE EFFECTS: 

' 
' 


ALL errors are fatal 


LOCAL 

Status 

: First, move the pointer to a local variable 

ptr = .addr; 

: Check our block type, fatal error if any problems 

Sblock_check (2, .ptr, rtilctx, 487); 

: If there is a buffer allocated, free it 

IF .ptr Crtlictx$a_buffer] NEQ 0 

exch$util_vm_release (ctx$k_buffer_length, .ptr Crtlictx$a_buffer]); 
: Clear the pointers in the part of the block before the automatic zero 
ptr Crtlictx$a_assoc_filb] = 0; 


PRIPDPIPIPOPNININIMININININIPIPINPYIPINININIDNINPININININIPYDINIPIPIPIPIPIPUPIPIPIPUIPIPIPIPIPIPPUPIPIPOPOPPUPONUny 
" . ° 


EXCUTIL.832;1 
oh ont ROUTINE exch$util_rtlictx_release (addr) : NOVALUE = ZSBTTL ‘exch$util_rtlictx_release (addr)' 


This routine deallocates one rtilctx. The block is moved from the in-use queue to the available que 


tr : $Sref_bblock, ! A local pointer to the rtiictx 


; Routine Size: 71 bytes, Routine Base: EXCHSUTIL_CODE + 0501 
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EXCHSUTIL Facility-wide misc routines 16-Sep-1984 01:25:39 AX-11 Bliss-32 V4.0-742 P 8 E 
VO4 exchSutil_rtilctx release (addr) 12286871388 93:33:09 LEXCHNG. SRE EXCUTIL.B32;1 20° 435 V 
3; 119 127 tr (rtlictx$a_assoc_yolb] : $ 
1138 7 oer Ureiictasecbutters = 6; 
; 1133 ! ie ; Remove the rtiictx from where ever it is in the in-use queue ; 
; 1137 } 6 Squeue_remove (ptr (rtlictx$q_header]); ; 
: Phe ; 4: : Place the rtiictx at the end of the available queue and the head of the in-use queue ; 
> 1201 1280 ; 
3; 3 o¢ 1 Hi 3 
: 120 1 HG RETURN; : 
3; 1204 1 END; ; 
000C 00000 ENTRY ‘€XCHSUTIL_RTI1CTX_RELEASE, Save R2,R3 3; 1214 : 
53 04 aC 00 00002 MOVL ADDR : 1256 3 
52 008200F4  8F b0 00006 MOVL #8519924, R2 : 1260 ; 
51 O1E7 = BF ‘ 00000 MOVZWL #487, R1 3 3 
50 53 DO bf MOVL PTR, RO 3 3 
00000000G EF 16 0001 JSB XCHSUTIL_BLOCK_CHECK 3 3 
18 A3 05 0001B TSTL 4(PTR) 3: 1264 3 
0p 13 OOO1E BEQL 1$ 3 : 
1 A3 DD 00020 USH 24(PTR) 3: 1266 3 
7E 1800 8F 3C 00023 MOVZWL #6144, =-(SP) : $ 
0000v CF 0 FB 00028 CALLS #2, EXCHSUTIL_VM_RELEASE 3 : 
10 A3 7C et 1$: CLRQ 16(PTR) : 1270 3 
18 A3 04 00030 CLRL 24(PTR) : 1272 3 
50 63 OF 00033 REMQUE (PTR), _T : 1276 : 
50 00000000G EF 000000B4 8F C1 00036 ADDL #180, EXCASA_GBL, RO : 1280 3 
04 860 63 OE 00042 INSQUE (PTRS, a4(ROY : ; 
04 00046 RET : 1283 : 


Squeue_insert_tail (ptr Crtlictx$q_header], exch$a_gbl Cexcg$q_rtlictx_avlJ); 


INPUTS: 


IMPLICIT INPUTS: 
none 
OUTPUTS: 
none 
IMPLICIT OUTPUTS: 
none 
ROUTINE VALUE: 
address of the allocated memory 
SIDE EFFECTS: 
ALL errors are fatal 
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LOCAL 
addr, 
status 
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con (status = Lib$Sget_vm (size, addr)) 
$exch_signal_stop (.status); 

RETURN .addr; 

END; 


0000 00000 

se Bee 

04 AC 9F 0007 

000000006 00 3 F Ben 
OA E 11 

0 DD 00014 

000000006 00 01 FB 00016 


EXCHSUTIL Facility-wide misc routines 
v04-000 exch$util_vm_allocate (size) 
06 4 GLOBAL ROUTINE exchSutil_vm_allocate (size) = 
0 5 EGIN 
§ +e 
3 FUNCTIONAL DESCRIPTION: 
0 
1 


14 
18-5 1984 01:25:39 AX-11 Bliss-32 V4.0-74 
17385-1984 3: t Sexe 7586 


9:09 EXCHNG.SRCJEXCUTIL.B32;1 
ZSBTTL ‘exchS$Sutil_vm_allocate (size)' 


This routine calls the LIBSGET_VM service to allocate dynamic memory. 


size Number of bytes to allocate (by value) 


Pass the call through 


-EXTRN LIBSGET_VM 
.ENTRY EXCHSUTIL_VM_ALLOCATE, Save nothing 
SUBL2 #4, SP 


SP 
PUSHAB SIZE 
CALLS @# LIBSGET_VM 
BLBS STATUS, 1 
PUSHL ST 


S 
CALLS) #1, LIBSSTOP 
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vou-000” —sexch$ut ivumeat locate: size) 1erSep=198e 92:33:09 LeXcrncssneSexcutic cases Page 43) 


50 6E 06 aoo1e 18: ROVL ADDR, RO ; 1358 


; Routine Size: 34 bytes, Routine Base: EXCHSUTIL_CODE + 0548 
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xch$ut {L_vm_al Locate. zeroed (size) 1228687138 93 333509 LEXCHNG. SRESEXCUT IL B32¢1 29° (20) 


a5 ROUTINE exchSutil_vm_allocate_zeroed (size) = ZSBTTL ‘exch$util_vm_allocate_zeroed (size)' 


<m 
RS 

‘x= 
on 


44 
FUNCTIONAL DESCRIPTION: 
This routine allocates dynamic memory. The memory contents are set to nulls. 
' INPUTS: 
size Number of bytes to allocate (by value) 
IMPLICIT INPUTS: 
none 
OUTPUTS: 
none 
IMPLICIT OUTPUTS: 


AAAI 


none 
' ROUTINE VALUE: 
address of the allocated memory 

SIDE EFFECTS: 

ALL errors are fatal 
| 
| 
| 


090909 09 SINISE NNO OOOO 


REGISTER 
addr, ! address of new memory . 
chunk : INITIAL (65535), ! used to force a large constant into a register 
tmp_adr. ' temp pointer and size 
mp_siz 


Allocate the memory 
addr = exch$util_vm_allocate (.size); 


SEBSISSELS OS 


! Zap the entire piece of memory to nulls. Since the VAX architecture only supports short strings, we must 
it into 64K chunks 


tmp_adr = .addr; 
i siz = .size; 
yo CE .tmp_siz GTRU .chunk 


Ssz 


WMEWN—O 


BEGIN 
CHSFILL (0, .chunk, -tep_edr); 
tmp_adr = .tmp_adr + .chunk; 
Emp_siz = .tmp_siz - .chunk; 
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EXCHSUTIL Facility-wide misc routines 16-Sep-1984 01:25:39 AX-11 Bliss-32 V4.0-742 & 4 
betty exch$util_vm_ allocate. zeroed (size) 14-Sep 5-19 4 93:33:33 EXCHNG.SRCJEXCUTIL.8352;1 9205 
: 1308 1385 
3 } 4 ! § 1 Do the last (usually only) piece of memory 
2 4311 1388 5 CHSFILL (O, .tmp_siz, .tmp_adr); | 
: ; 12 } 89 mp_siz mp_aar 
: 131 1390 2 RETURN .addr; 
: 1314 1391 17 END; 
| 
| 
03FC 00000 «ENTRY EXCHSUTIL_VM_ALLOCATE_ZEROED, Save R2,R3,- ; 1328. 
R4 RS _RO,R7, fs. R9 : 
57s FFFF = BF -3€-: 0000 movzw. #65535, CHU : 1329) 
04 AC DD 0000 PUSHL SIZE : 1371 
DO Oo AF gi FB OO00A CALLS #1, EXCHSUTIL _VM_ALLOCATE : 
56 0 DO OO00E MOVL RO, ADD : 
58 56 DO 00011 MOVL ADDR, TMP _ADR : 1376 
59 04 AC DO 00014 MOVL SIZE, TMP SIZ : 1377 
57 59 D1 00018 1$: CMP TMP_$1Z, CHUNK : 1378 
OE 18 0001B BLEQ 2$ ~ : 
57 00 6E 09 2c 90010 MOVC #0, (SP), #0, CHUNK, (TMP_ADR) > 1381 
58 57 co $0098 ADDL2 CHUNK, TMP_ADR : 138 
59 57 C2 00026 SUBL CHUNK, TMP~SIZ ; 138 
ED 11 00029 BRB 1$ : 1578 
59 00 6E 4 2c itt 2$: MOVCS #0, (SP), #0, TMP_SIZ, (TMP_ADR) : 1388 
50 56 DO 00031 MOVL ADDR, RO : 1390) 
04 00034 RET : a) 
; Routine Size: 53 bytes, Routine Base: EXCHSUTIL_CODE + 056A | 
| 
| 
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; 151 139 

: 1 18 1394 
; 131 1395 
; 1320 139 

; 1321 139 

3 1 § 139 

3 7 139 

3 1324 1400 
ie ah 
3 1 $ 1408 
: 1328 1404 
3 1 44 1405 
; 1350 1406 
3 133) 1407 
> ; 1408 
; 133 1409 
3 Wee 1410 
3 1335 1411 
3; 1336 1316 
3: 1337 141 

: 1338 1414 
; 1339 1415 
; 1340 1416 
3: 1341 1417 
$ 13§ 1418 
3 134 1419 
3 1344 Pe 
: 1345 1421 
: 1346 1058 
: 1347 105 

3: 1348 1424 
3 1349 1425 
3; 1350 1426 
3; 1351 1427 
3: 1352 1428 
3; 1353 169? 
3 1328 1430 
3; 1355 1431 
3; 1356 1432 
3 1357 1433 
; 1358 1434 
3 1359 1435 
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“wide misc routines 1b-Se -1984 01:25:39 AX-11 Bliss-32 V4.0-742 P 43 
L.vm_release (size, addr) 10735071 38e 93:33:09 LEXCHNG. SROJEXCUT IL .832¢1 298 (at) 


9A ROUTINE exch$util_vm_release (size, addr) : NOVALUE = RSBTTL ‘exch$util_vm_release (size, addr)‘ 
le 
FUNCTIONAL DESCRIPTION: 
This routine calls the LIBSFREE_VM service to release dynamic memory. 
INPUTS: 


size Number of bytes to release (by value) 
addr Address of longword containing address of memory to release 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
IMPLICIT INPUTS: 

: none 

; OUTPUTS: 

none 

IMPLICIT OUTPUTS: 

; none | 
ROUTINE VALUE: 

Success, or status code of error converted to warning severity 

SIDE EFFECTS: 

Errors are signalled 


LOCAL 
status 


_ (status = Lib$free_vm (size, addr)) ! Pass the call through, no dots tho 
$Sexch_signal_stop (.status); 

RETURN; 

END; 


-EXTRN LIBSFREE_VM 


000 -ENTRY EXCHSUTIL_VM_RELEASE, Save nothing > 1392 | 
08 AC 9 PUSHAB ADDR : 1430 
06 AC 9 PUSHAB pice : 
000000006 00 02 F CALLS #2, LIBSFREE_VM ; 
09 50 E LBS STATUS, 1$ : | 
50 PUSHL STATUS > 1432 | 
000000006 00 01 F CALLS #1, LIBSSTOP ; | 
0 ET > 1435. 
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3; Routine Size: 


Faci by wee misc Foyt jnes 


exch$ut 


28 bytes, 


_vm_release 


Routine Base: 


size, addr) 1b-te 


EXCHSUTIL_CODE + 059F 
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EXCHSUTIL Facility-wide misc routines 1-Se -1984 01:25:39 AX-11 Bliss-32 V4.0-742 Pp 45 ™ 
v04 exch$ut{L_vol_getdvi (devname, volb) 12286871382 93:33:09 LEXCHNG.SRe EXCUTIL.B32;1 29° (23) 
14 § 1 GLOBAL ROUTINE exch$util_vol_getdvi (devname : REF $desc_block, ZSBTTL ‘exch$util_vol_getdvi (devnam 
1 volb : $Sref_bblock) = 


WAN 


Ooo 


+ gy 
FUNCTIONAL DESCRIPTION: 

Get standard device information for a volb 
INPUTS: 

devname - address of descriptor for device name 
IMPLICIT INPUTS: 

none 
OUTPUTS: 

volb = several characteristics fields in the volb are filled in 
IMPLICIT OUTPUTS: 

none 
ROUTINE VALUE: 

Success or worst error encountered. 
SIDE EFFECTS: 


none 


88 


PPPS SSSI Be EE 


ue 


coco 
Coon 


AAA AAAAOO 
PUR | OOODNOAUES WIN $9 ODNAUE WN $C OONAUES WN “OO ENOU SW O 
iy 
i 


$dbgtrc_prefix (‘util_vol_getdvi> '); 
LOCAL 


tababababadbababadadadebabadadabababdabadbaotadabiabaiatiadaaadababalabaiadabhabababababababababadbatabatababababababad 
ooo°o°o SESSESS SSS 
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7 
7 
7 
7 status, 
, dev_item : VECTOR (22, LONG] 
7 i | 
: $Sblock_check (2, .volb, volb, 488); 
r ' Initialize the item List for the $GETDVI 
06 8 dev_item 9 = (dvi$_devbufsiz*16 OR 4); ' Device buffer size, output length 4 
07 8 dev_item (1) = volb Cvolb$l_devbufsiz); ' Address of output buffer 
08 8 dev_item § = 0; ! No returned Length 
09 8 dev_item = (dvi$_devchar*16 OR 4); 
10 $2 dev_item (4) = volb ECvolb$l_devchar]; 
11 dev_item (5) = 0; 
\ 87 dev_item (6) = (dvi$_devclass*16 OR 4); 
1 88 2 dev_item [7] = yolb Cvolb$l_devclass); 
14 89 dev_item (8) = 0; 
15 90 dev_item (9] = (dvi$_devdepend*16 OR 4); 
16 91 dev_item (10) = yolb Cvolb$l_devdepend]; 
17 92 dev_item [11] = 0; 
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EXCHSUTIL Facility-wide misc routines 16-Sep-1984 01:25:39 AX-11 Bliss-32 V4.0-742 Pa 46. 
v04 exch$ut’l_vol_getdvi (devname, volb) e286 71382 93:33:09 LEXCHNG. SRE EXCUTIL.B32;1 9°22) | 
18 1493 2 dev_item i = (dvi$_fulldevnam*16 OR 16); 
1 9 dev_item (15) = volb [volb$t_devnam]; 
0 9 dev_item [14] = volb phe ts bie fe at 
1 9 dev_item [15] = (dvi$ it ge OR 4); 
¢ 9 dev_item 18 = yolb ECvolb$l_devtypel; 
9 dev_item [17] = 0; 
4 9 dev_item 18 = (dviS$_maxblock*16 OR 4); 
5 0 dev-item [19] = volb Cvolb$l_devmaxblock]; 
6 8 dev_item 9 = 0: 
4 8 dev_item (21J) = 0; ! End of GETDVI item List 
; Get the device information 
3 if “2 (status = Sgetdviw (efn=0, devnam=.devname, itmlst=dev_item)) 
is RETURN .status; 


Do any manipulations necessary with the raw device info 
volb Cvolb$l_volmaxblock] = .volb Cvolb$l_devmaxblock]; ! Assume device and volume same size 


LIF switch_trace 
ZTHEN 


BEGIN 
EXTERNAL ROUTINE 
pgp tOneeed_mes print seveher; 


a0 : Sdesc_block; 
dep = volb Cvolb$l_devdepend] : $bblock; 


: $stat_str_desc_init (tmp_desc, .volb Cvolb$l_devnamlen], volb Cvolb$t_devnam]); 
§ $trace_print_fao ('Getdvi for name "!AS'"' resolved to device ‘"!AS'" -devname , tmp_desc); : 
$trace_print_fao ("Bufsiz = !UL, Maxblocks = !UL, Class = !XB, type = !XB*, .volb Cvolb$l_devbufsiz], 
-volb Cvolb$l_devmaxblock], .volb fvolb$l_devclass). .volb Cvolb$l devtypel); 
$trace_print_fao (‘Cylinders = !UL, Tracks = _!UL, Sectors = !UL, DevChar = !XL", 
-depl0,16, 16.0] .depl0,8,8,0), .depl0,0.8,0J, .volb Cvolb$l_devcharJ); 
exch$dbg_utl_print_devchar (.volb fvolb$l_devchard); 
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tFI 


RETURN .status; 
END; 
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-EXTRN SYSSGETDVIW 


000¢ 00000 ENTRY EXCHSUTIL VOL_GETDVI, Save R2,R3 : 1436 
f AB AE SE 00002 ROVAB =88(SP), SP | 
08 AC D 9 MOVL vO RS > 1477 
2 04 1800F F p A MOVL #68878579, R2 ; 
1 168 BF ¢ 1 MOVZWL #488, R1 ; | 
0 D0 00 1 VL RB, RO ; | 
000000006 EF 16 0001 JB EXCHSUTIL_BLOCK_CHECK ; 


EXCHSUTIL Facility-wide misc routines 18-5¢ Sep-1 AX-11 Bliss-32 V4.0-742 Page 47 
Vv04 exch$util_vol_getdvi (devname, volb) 1 eet Pi 93: $3: 39 EXCHNG.SRCJEXCUTIL.832;1 . (22) 
6E 00080004 8F 00 0001F MOVL #524292, | DEV_ITEM ; 1481 
04 AE A3 t 6 MOVAB 40(R3) DEV V_ITEM+4 : 14 g 
AE D B CLRL DEY TEM : 14 
o¢ AE 00020006 BF 00 MOVL #137076, DEV ITEM+12 + 1484 
oh be AP ROMS str aabpTTEn te 
18 AE 00040004 8F DO E MOVL Pedalbe be V FTEMS 34 : 1289 
1C AE A3 9E 0004 MOVAB 48(R3) DEY TTEM+2 : 1488 
AE D4 00048 CLRL DEV_ITEM+ + 1489 
3% AE OO0A0004 = BF 0 eh MOVL g873 64, DEV 1TEMs 36 : 1490 
8 AE ) 2 : 5 MOVAB 52(R3), DEV_TTEM+40 + 1497 
§ AE D 098 CLRL DF {TEms4e” : 1498 
0 AE 00E800 BF 00 E MOVL  #15204368, DEV_ITEM+48 + 149 
4 AE 00E9 C3 E 00066 MOVAB @3 (R3), BDEV_ITEM+52 + 1494 
8 AE A 9 006¢ MOVAB 6683) DEV_TTEM+56 + 1495 
3c AE 00060004 8F DO 00071 MOVL @ 93206, DEV ITEM*60 + 1496 
40 AE C Ad 9E 90079 MOVAB 60(R3), DEV_ITEM+6 + 1497 
44 AE D4 0007E CLRL CODE he + 1498 
48 AE 001A0004 8F 00 00081 MOVL #1703940, DEV_ITEM+72 + 1499 
4C AE 40 A3 9E 00089 MOVAB 64(R3), DEV_ITEM+76 + 1500 
50 AE 7C OOO8E CLRQ DEV_ITEM+80 : 1501 
7E 7C 00091 CLRQ = = (SP) : 1506 
7E 7C€ 00093 CLRQ = =(SP) : 
10 AE 9F 00095 PUSHAB DEV_ITEM : 
04 aC DD 00098 PUSHL  DEVNAME : 
7E 7C 00098 CLRQ.  =(SP) ; 
000000006 00 08 FB 0009p CALLS #8, SYSSGETDVIW ; 
05 50 £9 0004 BLBC STATUS, ; 
64 OAS 40 A3 DO 000A7 MOVL  64(R3). 68(R3) + 1512 
04 OOOAC 1$: RET : 1537 


; Routine Size: 173 bytes, Routine Base: EXCHSUTIL_CODE + 058B 


First, try to find one in the available queue 


38 


ptr = $queue_remove_head (exch$a_gbl Cexcg$q_volb_avl)); 


H 15 
EXCHSUTIL Facility-wide misc routines 16-Sep-1984 01:25:39 AX-11 Bliss-32 V4.0-742 P 8) 
v06 exch$util_volb-allocate 13738871382 93:33:09 HeXChne SReSexcutiicesoe1 age 03) 
> 14646 1 1 GLOBAL ROUTINE h$util_volb_al = TTL ‘exch$uti . 
: lege } 8 SL 084 exch$util_volb_allocate ZSBTTL ‘exch$util_volb_allocate 
¢ 1008 1540 lee 
3: 146 1541 ! 
: 1008 } 1: FUNCTIONAL DESCRIPTION: 
: 1296 1544 i This routine allocates one $VOLB. If $VOLBs are available, one is moved from the available queue to| 
; 1ez) } re in-use queue. If none are available, then a fresh $VOLB is created and placed on the in-use queue. 
; 1278 1 23 i INPUTS: 
MB OSE | 
3 ! none 
3 147 1550 ! 
1079 1551 2 | IMPLICIT INPUTS: 
3: 1478 1328 ! 
3; 1479 155 : exch$a_gbl Cexcg$a_volb_alloc] - List of allocated volume blocks 
; 1480 1554 : exch$a_gbl Lexcg$q_volb_avl] = queue of available volume blocks 
: re 132? exch$a_gbl Cexcg$q_volb_use] = queue of volume blocks in use 
: 1288 1557. 2 | ouTPUTS: 
> 1484 1558 ! 
: ibe 1300 3 | ae | 
: 14687 1561 2 | IMPLICIT OUTPUTS: | 
3; 1488 1206 ! 
fin ee ipo 
: 1491 1365 é ; ROUTINE VALUE: | 
3 1498 1300 2 address of the allocated volume block 
: 1495 1369 3 SIDE EFFECTS: | 
; 1437 132) ALL errors are fatal 
He ea” te Fe | 
: 1501 1575 offset, ' Local temrorary 
: 1308 1576 ptr : Sref_bblock, ' A local pointer to the volb | 
3 138 1577 status 
3; 1504 1578 : 
: 1306 1380 | 
a 
2 es 
: 1511 1585 ! If we didn't find one, then it will have to be created 

: 1316 1386 ! 

We TR 3 Heapte fa 

; 1515 1388 BEGIN 

3 1317 123) : Allocate a fresh volb from virtual memory. The entire block has been cleared to nuils 

; 1819 1398 ptr = exch$util_vm_allocate_zeroed (exchblk$s_volb); 

: 1520 1594 


15 
EXCHSUTIL Foch h ttyiwide misc routines 1h-Sep-19 4 91:63:38 oo Bliss-32 V4.0-742 
v04 exch$util_volb_allocate 14-Sep-1984 12:29:09 EXCHNG.SRCJEXCUTIL.832;1 
: ! 1 } 95 Place the volb at the head of the List of allocated blocks 
:1 ‘ 1 39 ptr fvol bse altos = excita. gol Cexcg$a_volb_alloc]; 
; ! 3 } 38 exch$a_gbl Cexcg$a_volb_alloc] = .ptr; 
:1 6 1600 ! Set the block identification fields 
3; 15 1601 } 
; 13 : 1986 Sblock_init (.ptr, volb); 
: ' 1908 Several items are located at the end of the $VOLB, fill in the pointers 
; 1 ¢ 1606 ptr Cvolb$a_fab] = .ptr + volb$k_Llength; ! Fab is at end of block 
3 15 160 ptr Lvolb$a_rab = .ptr Cvolb$a_fab] + fab$Sk_bin; ' Rab right after Fab 
3 15 1608 ptr Cvolb$a_nam = .ptr Cvolb$a_rab] + rab$k_bin; ' Nam after Rab 
; 1535 1609 ptr vorpze.espuly = .ptr Cvolb$a_nam) + nam$k_bin; ! Expanded string after Nam 
3 1 1919 ptr Cvolb$a_rsbuf] = .ptr Cvolb$a_esbuf] + nam$c_maxrss; ! Result string after Ebuf 
; 1338 161@ END; 
3; 1539 161 
3 HF 9 161% } Check our block type, fatal error if any problems 
; 134¢ 1616 Sblock_check (2, .ptr, volb, 489); 
3; 154 161 
3 Hoy 1913 Set the Last part of the block to nulls 
; 1268 1? CHSFILL (0, exchblk$s_volb - volb$k_start_zero, .ptr + volb$k_start_zero); 
; 1348 16 é ! Place the volb at the head of the in-use queue 
: 1330 1635 Squeue_insert_head (ptr Cvolb$q_header], exch$a_gbl Cexcg$q_volb_use]); 
: 1932 1626 2 ! Return the address of the volume block to the caller 
3; 155 1627 ! 
3; 1554 1628 RETURN .ptr; 
; 1555 44 
3; 1556 1630 1 END; 


00FC 00004 ENTRY EXCHSUTIL_VOLB_ALLOCATE, Save R2,R3,R4,R5,- 
F 9 MOV EXCHSA_GBL, R7 
F f $00 ADDL #300 EXCHSA_GBL, R1 
1 OF 0001 REMQUE @0(R1), _T_ 
4 1¢ 0001 BvC 1$ 

D4 0001 LRL~—s-~wPTR 

11 1 R 2$ 

09 1 MOVL T_, PTR 

1 BNEQ 3$ 

F 3C MOVZWL #°°S1, =(SP) 
a # CALLS #  XCHSUTIL_VM_ALLOCATE_ZEROED 
9 0 MOVL RU, © TR 

D MOVL FXCHSA BL RO 
0D MOVL BB(ROT ¢(PTRD 
6 D MOVL PTR, 188(RO) 
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; Routine Size: 160 bytes, Routine Base: EXCHSUTIL_CODE + 0668 


: 
J 15 | 
EXCHSUTIL Facility-wide misc routines 16-Sep-1984 7:25:39 AX-11 Bliss-32 V4.0-742 Page 50) 
vives exch$util_volb-allocate 12-808=138e 93 335339 LEXCHNG SRE EXCUTIL.832;1 ’ (235 
8 OA 0418 er 0 MOVW #1051, 8(PTR) ; 1602 
A oA D BE 0004 MNEGB #13, 10(PTR) : 
19 A 129 6 F 4 MOV 29 (RG) 16(PTR) + 160 
146 Ab 1 A 0 &F C¢ 48 ADDL #80, (PTR), O(PTR) + 160 
18 Ab 14 sO 44 BF OCC 2 ADDL #6 ; 3 (PTR), 24(PTR) + 1608 
1 AG 18 OA 60 8F C1 F ADDLS # $ 4(PTR) (PTR) + 1609 
20 AG 1 OA FF OF OC $9 ADDL3 #255 gB<PTR, 2(PTR) + 1610 
41B00F F BO 3$: MOVL 468878 9, R2 + 1616 
iE F ¢ O7A MOVZWL #489, R1 : 
0 6 D ovr MOVL PTR, RO : 
000000006 FF 16 H JSB EXCHSUTIL BLOCK CHECK : 
O3F3 = BF 00 6F : 00 2c 9 : mMOovCS #0, (SP),"#0, #7011, 40(PTR) + 1620 
50 67 o00000¢8 8F ct 0091 ADDL3. #192, EXCH$A_GBL, RO + 1624 
0 6 : 0099 INSQUE (PTRS, (RO) : 
0 6 00 0009C MOVL PTR, RO + 1628 
04 0009F T + 1630 


Kk 15 | 
A tyiwiée misc routines 16-Sep-1984 91:33:33 on Bliss-32 V4.0-742 Page 51. 


Exeweyr it Fac 

v04 exch$util_volb_release (addr) 14-Sep-1984 EXCHNG.SRCJEXCUTIL.832;1 (24) 
| 

; } rH 16 > GLOBAL ROUTINE exch$util_volb_release (addr) : NOVALUE = ZSBTTL ‘exch$util_volb_release (addr)' 

; 1560 16 g '+ 

; 1561 1634 ' 

3 ! 66 1 5 : FUNCTIONAL DESCRIPTION: | 

: } ee 1° ? : This routine deallocates one $VOLB. The $VOLBs is moved from the in-use queue to the available queu 

g 12 1639 ' INPUTS: 

; 156 1640 ! 

; 1568 1641 ! addr - address of the block to release 

; 1298 1966 ‘ 

3; 1570 164 ' IMPLICIT INPUTS: 

; 1571 1644 ! 

; 1276 1645 : exch$a_gbl Cexcg$q_volb_avl] - queue of available volume blocks 

3 1303 1606 } exch$a_gbl Cexcg$q_volb_use] - queue of volume blocks in use 

3 1238 1968 ' OUTPUTS: 

3 1326 164 ! 

; 1577 1650 ! none 

3; 1578 1651 ! 

: 1579 1636 ! IMPLICIT OUTPUTS: 

; 1580 165 ! 

; 1581 1654 ! none 

3 1386 1655 ! 

3; 158 1656 ' ROUTINE VALUE: 

: 1584 1657 ! 

; 1585 1658 ! none 

3; 1586 1659 ! 

3; 1587 1660 ' SIDE EFFECTS: 

; 1588 1661 ! 

3; 1589 1066 ! ALL errors are fatal 

; 1590 166 ed 

3; 1591 1664 

g 1238 1665 LOCAL 

3; 159 1298 ptr : Sref_bblock, ! A local pointer to the volb 

3; 1594 166 spc : $Sref_bblock, ! Pointer to volume specific structure 

3; 1595 1668 status 

3; 1596 1669 g 

3; 1597 1670 

3; 1598 1671 

3; 1599 1676 ! First, move the pointer to a local variable 

: 1600 167 ! 

; 1601 1674 ptr = .addr; 

: 16 ¢ 1675 

3 1o9? 1976 : Check our block type, fatal error if any problems 

: Ion? 1978 Sblock_check (2, .ptr. volb, 490); 

3 944 1eBt Perform some volume specific actions on the specific pointer 

: 1609 1682 2 IF (spc = .ptr Cvolb$a_vint_specific]) NEQ 0 | 

3; 1610 16 THEN 

: 1611 16 BEGIN 

3 1ol¢ 1685 LOCAL : 

3; 161 16 block_size 

; 1614 168 ; | 
} 
| 
| 
| 
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exch$util_volb_release (addr) EXCHNG. SRC Excurt -B32;1 (2) 


<m 
RS 
‘x 
3s 
— 

a 


act -ptr Cvolb$b_vol_format] FROM volb$k_vfmt_lobound TO volb$k_vfmt_hibound OF 


Cvolb$k_vfmt_dosi1] : BEGIN 
LOCAL 


C 
S 


4st 


WN" OOONOULSWN "ODOM 


t : Sref_bblock; 
} Follow the chain of entries and release them 
WHILE (ent = Squeue_remove_head (spc [dos11$q_entry_header])) 


SGOOCCCOCOOCOOOOOOOOOOO 
NOUS WT 


3; 16 1 

; 16 16 

3; 16 16 

3; 16 16 4 
3; 16 16 4 
: 16 1693 4 | 
3; 16 16 4 

3; 16 16 4 
3; 16 16 4 

; 16 1697 5 | 
3; 16 1698 4 

: 12 ig ; 2 exch$util_vm_release (dosilent$k_length, .ent); ! Release the entry | 
3; 16 1701 4 block_size = exchblk$s_dos11; 

3 Hb \? ¢ END; 

3 198 1? : Cvolb$k_vfmt_rt11] : block size = exchblk$s_rti1; 

: 163 1706 CINRANGE, OUTRANGE] : $logic_check (0, (false), 250); 

> 1634 1707 achitns 

3; 1635 1708 TES; 

: 1636 1709 

3; 1637 1710 exch$util_vm_release (.block_size, .spc); ! Release the extension 
3; 1638 1711 § ND; 

: 1639 Far | 
F oe Hay 2 ! Remove the volb from where ever it is in the in-use queue 
3: 1642 1715 $ queuve_remove (ptr [voib$q_header]); 

: 1643 1716 3 | 
3 1644 1717 2 ! Place the volb at the end of the available queue 
> 1645 1718 2 

> 1646 1719 2 

: 1647 1720 2 

> 1648 1721 2 Ena 

> 1649 1722 1 


' 
' 
$ 
‘ 
' 
Squeue_ insert_tail (ptr Cvolb$q_header], exch$a_gbl Cexcg$q_volb_avl]); 
R 
END 


001¢ 00000 -ENTRY EXCHSUTIL_VOLB_RELEASE, Save R2,R3,R4 : 1631 
54 04 AC 00 Beeps MOVL DDR : 1674 
52 041B00F3 BF pO 0006 MOVL 468878579, R2 : 1678 
1 O1EA HA 5 8008 MOVZWL 490, R1 3 
4 D 1 OVL PTR RG : 
000000906 EF 16 0001 JSB KCHSUTIL BLOCK_CHECK : | 
53 4 Ad 09 00018 MOVL (PT TR), SPC : 1682 
4E 1 0001 BEQL : | 
03 00 58 AG OBE 0021 CASEB BB(PTR). #0, #3 + 1689 
0030 0008 001D 0008 00026 1$: WORD $-18.- F 
$-15.- F 
7E FA F 9A 4 5 23: MOVZBL 450. -(SP) : 1706 
1 DD 00 PUSHL a ; 
000000006 8F DD 00 4 PUSHL HEXCHS BADLOGIC ; 
000000006 00 3 FB A CALLS #3, LIBS$ST ; 


esesesess 


Facilit 


“wide misc routines 
04-000 exch$utt 


L.volb_release (addr) 


2 11 4 BRB 8$ 
50 12 : OF Boe} 3$ REMQUE @18(SPC), _T_ 
4 C Bf BVC 4$ 
§ D4 00049 CLRL 4 
11 00048 BRB $ 
52 DO 00040 4$: MOVL 
0B E9 00050 5$: BLBC ENT: ve 
DD 0005 PUSHL 
1¢ 0D 0005 PUSHL age 
FE3B CF 02 FB 00057 CALLS #2, EXCHSUTIL_VM_RELEASE 
11 Q005C BRB 
50 6 pd0 Bp O2E 6$: MOVL #54, BLOCK_SIZE 
5 11 0006 BRB $ 
50 880E 8F 3C 00063 7$: MOVZWL pense § ah ock- SIZE 
09 BB 00068 8$: PUSHR 
FE28 CF 02 FB OO06A CALLS 42. <EXCRSUTIL. VM_RELEASE 
50 64 OF Benge 9$: REMQUE (PTR), _T 
50 00000000G EF 000000C8 8F 4 0072 ADDL #200, ERCASA GBL, RO 
04 80 64 O€ b007e INSQUE (PTRS, a4(ROD 
04 0008 RET 
; Routine Size: 131 bytes, Routine Base: EXCHSUTIL_CODE + 0708 


1ec$ep-1986 12:59:09 LEXcuncesmesexcutic.as201 


5 | 


N 1 
EXCHSUTIL Facility-wide misc routines 16-Sep-1984 01:25:39 AX-11 Bliss-32 V4.0-742 Page 54) 
v04-000 exch$uttl_up case 14-Sep-19 4 93:33:09 LEXCHNG. SRC EXCUTIL.B32;1 . (25) 
; 1651 1723 1 GLOBAL ROUTINE exch$util_up_case (in_siz, in ptr, out ptr) : NOVALUE jsb_rir2r3 = ZSBITL ‘exch$util_up| 
; 16 ¢ 1724 BEGIN 
; 16 1725 1++ 
3; 1654 17 § : 
: 192? if f FUNCTIONAL DESCRIPTION: 
: 1657 1729 ! This routine converts a string to uppercase. In testing it appears to be faster to do this sort 
: 1928 i : of loop than to execute the MOVTC instruction on the 11/780. 
3; 166C 17 ¢ ' INPUTS: 
: 1661 17 ' 
; 166@ 1734 i in.siz = size of input record to convert | 
3; 166 1735 : in_ptr = address of input record to convert 
3: 1664 1736 ! 
3; 1665 eet ! IMPLICIT INPUTS: 
3: 1666 1738 ! 
: 1667 1739 ‘ none 
3; 1668 1740 ‘ 
3: 1669 1741 ' OUTPUTS: 
: 1670 1th ! 
; 1671 17435 2! Out_ptr = address of output record buffer 
: lore 1744 § ! 
3: 167 1745 ! IMPLICIT OUTPUTS: 
3; 1674 1746 2! 
3: 1675 1747 2! none 
3 1676 1748 2! | 
3 1677 1749 2 ! ROUTINE VALUE: 
3 1o78 1750 2! 
: 167 1751 2! none j 
3: 1680 1738 3 | 
3: 1681 1753 2 ! SIDE EFFECTS: 
3: 1682 1754 2! 
3; 1683 1755 2! Input record copied to output record buffer and all 
3: 1684 1756 2! lowercase alphabetic characters converted to uppercase. | 
3; 1685 1757 2 !-- 
3 1686 1758 § 
3; 1687 1759 REGISTER 
> 1688 1760 2 char : BYTE ' Character to test 
3; 1689 1761 2 3 
3; 1690 1766 § ; 
: 1691 176 DECR count FROM .in_siz-1 TO 0 ! Upcase the characters 
3 1692 1764 ¢ dO 
3; 1693 1765 BEGIN . 
3: 1694 1766 ; char = CHS$RCHAR_A (in_ptr); ' Get next character 
3: 1695 176 IF .char GEQU a’ AND .char LEQU ‘z' ' Lower case letter? 
3: 1696 1768 ; THEN 
3: 1697 1769 char = .char - %0°40'; ' Convert to upper 
; 1698 1770 3 CHSWCHAR_A (.char,out_ptr); ! Move character to buffer ) 
: ioe. 1771 END; 
3; 1700 1776 
; 1701 177 RETURN; 
: 1702 1774 1 END; ’ 
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TIL Fact) (tyiwide misc routines 18.38 ~3e0= 1386 a ert Bi ies 32 V4.0-742 Page 423 


exch$util_up_case 14-Sep-1 XCHNG. SRCI EXCUTIL.832;1 


15 11 00000 EXCHSUTIL UP_CAS t: ta 
0 90 1$: MOVB (IN_PTR)+, CHAR : 176 
61 3p 86 91 g CMPB HAR, #97 + 176 
09 1F 9 BLSSU : 
7A GF 9 #4 8 Sern SEAR. #122 ’ 
50 0 82 9 11 SUBB2 #32, CHAR : 1769 
8 0 14 38: MOVB CHAR (OUT PTR) : 17 
£8 1 £4 00017 3$: SOBGEQ COUNT, 7 + 176 
05 OOO1A RSB : 1774 


; Routine Size: 27 bytes, Routine Base: EXCHSUTIL_CODE + 0788 


hand tS: righty misc routines 


EXCHSUTIL 
voe~000 


exch$util_up_case 14-Sep-1 EXCHNG.SRCJEXCUTIL.B32;1 
; 1704 1775 1 END 
: 1705 1776 0 ELUDOM 
-EXTRN LIBSSIGNAL, LIBSSTOP 

: PSECT SUMMARY 
; Name Bytes Attributes 
; EXCHSUTIL_CODE 1958 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
: Library Statistics 
Bea one See Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 
: _$255$DUA28:CSYSLIBILIB.L32;1 18619 30 0 1000 00:01.8 
; ~$255$DUA28: CEXCHNG.OBJJEXCLIB.L32;1 1151 140 12 79 00:01.4 
; COMMAND QUALIFIERS 
: BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LISS:EXCUTIL/OBJ=OBJS:EXCUTIL MSRC$:EXCUTIL/UPDATE=(ENHS$:EXCUTIL) 

Size: 1958 code + 0 data bytes 

Run Time: 0: 

Elapsed Time: 02:18.9 


Lines/CPU Min: ¢6 40 
Ronemees Putte 25715 

a Used: 141 pages 
— ation Complete 


1 Se 


9B 12:88:09 


AX-11 Bliss-32 V4.0-742 


Pa 56 
9° (26) 
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